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ABSTRACT 

Building an expert system from scratch requires a 
long and tedious programming process. To make this 
easier, expert system shells are devised. We have 
implemented a shell in the language PROLOG. Our shell 
is modelled on a famous one, EMYCIN. We built two 
small-sized expert systems using our shell. The first 
one (CAR diagnosis system) diagnoses engine problems 
in a car, and the second one (FINANCE analysis system) 
gives financial advice. We also designed some 
explanation facilities for our shell. The choice of 
PROLOG facilitated our study considerably. PROLOG's 
built-in pattern-matching and backtracking facilities 
were two powerful features for the deduction process 
and EMYCIN’s backward-chaining control structure. With 
our shell we were able to build an expert system 
quickly. Although they were left as a future study, 
implementation of the user interaction and explanation 


system modules can make our shell a usable product. 
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I. INTRODUCTION 


A. EXPERT SYSTEMS 

Our main goal is to translate the inference 
engine of EMYCIN into the PROLOG language, and run 
this inference engine with two different knowledge 
bases. The expert system shell EMYCIN and its 
inference engine are explained in Section I.B and I.E 
respectively. This section provides background 
information about expert systems. 

One of the main interests in the area of 
artificial intelligence is the development of "expert 
systems" (ES). An ES is a large computer program which 
captures professional expertise in a field such as 
fault diagnosis, chemical analysis, or equipment 
design, and is capable of providing recommendations as 
valid as those of human experts. Some well-known 
expert systems are: the Heuristic DENDRAL program 
Which finds the relatively small set of possible 
molecular structures of known constituent atoms that 
could account for the given spectroscopic analysis of 
an unknown molecule [1]; MACYSMA, which assists 
mathematicians, scientists, and engineers in solving 
mathematical problems; and MYCIN, кы provides 


consultative recommendations for diagnosis and 
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treatment of infectious disease. The MYCIN example is 
especially interesting in its ability to reason with 
"inexact" data. 

Years of experience have yielded а list of 
prerequisities for the worth of expert systems [2,3]. 
Some of these prerequisities merit description. First, 
the program should be useful. It should respond to the 
actual needs of a domain. Second, the program should 
be able to explain its advice. It should provide the 
user with enough information about its reasoning to 
allow a decision as to whether to follow the 
recommendation. Finally, the program should be able to 
communicate naturally with the user. It should avoid 
confronting the user with computer jargon. It should 
use a language as close as possible to the natural 
language to permit understanding of data requests, 
explanations and recommendations. This would 
facilitate the transfer of knowledge by the knowledge 
engineer to the program during the knowledge-base 
design phase. The knowledge engineer is one of the 
users of EMYCIN (see following section for a 
discussion about the different users of an expert 


system). 


B. THE EXPERT SYSTEM SHELL AND EMYCIN 

Before the concept of the expert system shell is 
introduced, the principle builder of the expert 
system, the knowledge engineer, and his/her 
relationship to the expert system shell should be 
described. The knowledge engineer works together with 
the domain expert during building process. The 
knowledge engineer is the AI specialist while the 
domain expert is the specialized senior professional 
with respect to the domain. The relationship of the 
knowledge engineer and the expert system shell has 
been expressed as follows: "The need for a knowledge 
engineer is inversely proportional to the quality of 
the tools provided by the expert system environment" 
(ae 

Over the years, methodologies used to build 
expert systems have developed similarities, and they 
can be categorized according to the representation of 
knowledge (first-order predicate calculus, semantic 
networks, production systems, frames [5]), and 
inference methods that perform reasoning on the 
knowledge base (generate-and-test, backward-chaining, 
forward-chaining). While the first generation of 
expert system builders used enhanced AI languages like 
Interlisp and PROLOG, second generation efforts 


concentrated on building and using languages that 
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embody опе or more of the above knowledge 
representation schemes and inference methods. Such 
languages reduce the expert system building time 
considerably, and they are called expert system 
shells. "Without such an environment, the development 
process would focus on programming. This burdens and 
lengthens the task of the knowledge engineers and 
decreases the quality of communication with the 
experts; they do not work on the same thing" [6]. 
EMYCIN is one such second generation expert system 
building language (expert system shell). Some other 
expert system shells are presented in detail elsewhere 
КҮ|. 

An expert system shell should facilitate the 
expression, display, organization, and interaction of 
thoughts. EMYCIN presents a conceptual model 
consisting of triples (attribute, object, value) anda 
context tree, designed to satisfy the above 
requirements. Here the conceptual model should not be 
confused with the language used, since EMYCIN has 
already been implemented with different languages such 
as Interlisp, and in our work, with PROLOG. 

EMYCIN's task is explained by its author as 
follows:  "EMYCIN is used to construct and run a 
consultation program, a program that offers advice on 


problems within its domain of expertise. The 
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consultation program elicits information about a 
particular problem (а "сазе") by asking questions of a 
user. It then applies its knowledge to the specific 
facts of the case and informs the user of its 
conclusions. The user is free to ask the program 
questions about its reasoning in order to better 
understand or validate the advice given" [8]. Once 
EMYCIN is built by a shell designer there are two 
other users of it. First is the knowledge engineer who 
uses EMYCIN to produce a knowledge base for the 
domain. The knowledge engineer most of the time works 
with the domain expert (see Figure-1). The knowledge- 
base is composed of factual knowledge about the domain 
and production rules [9] showing how to go through the 
consultation. The third user of EMYCIN is what we call 
the consultor to whom the advice is given. Thus 
EMYCIN, together with the knowledge base, constructs a 
new consultation system. Throughout our study we will 
refer to the shell designer as "we" or "us". 

Figure-1 shows the overall organization of the 


EMYCIN and interactions with different users. 


С WHY EMYCIN? 
In our search for an expert system shell EMYCIN 
has been chosen for several different reasons. First, 


as а university research project compared to a 
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commercial one, EMYCIN has increased credibility. 
EMYCIN in fact originated from the expert system MYCIN 
which diagnoses infectious diseases. MYCIN’s succesful 
diagnostic results encouraged us to look at its 
structure. The builders of EMYCIN (Essential MYCIN) 
stripped off the domain specific knowledge of MYCIN 
and proposed the remaining structure as an expert 
system shell and also claimed its applicability for 
domains other than medicine. 

Our primary need was for a higher-level 
conceptual structure which would embrace the domain 
knowledge in a structured way. We also needed an 
inference engine to operate on that knowledge as well 
as the implementation of these conceptual and 
structural requirements in reasonable hardware and 
software resources. 

EMYCIN provides a highly organized conceptual 
structure into which the domain knowledge is to be 
mapped. It is a tree whose nodes correspond to the 
hierarchically organized domain-knowledge chunks. 
These nodes are designated contexts. Our attempt is to 
have a balance between the complexity of the context 
кке, requirements and their implementation 
difficulties. EMYCIN is expected to provide this 


balance. 
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DT WHY PROLOG? 

Programs in PROLOG consist of rules and facts, 
where each rule is equivalent to a Horn clause 
[10,11]. The entire set of facts and rules comprises 
the knowledge base. When this knowledge base is 
queried, the information which is a logical 
consequence of facts in the knowledge base can be 
retrieved. Inference is done in a top down fashion 
using the resolution principle [12]. PROLOG has a 
built-in-pattern-matching facility which is based on 
the unification principle [10]. Since the  EMYCIN 
inference engine works on production rules [9], 
PROLOG's basic statements, which are rules, facilitate 
implementation of the rule based structure of EMYCIN. 

Emergence of different PROLOG implementations on 
different machines encouraged us to work with PROLOG 
[13]. Also this increasing availibility and its ease 


of use increases the portability of our work. 


Е. THE WORK DONE 

Our work can be seen in four different parts. The 
first part involves the writing of a program using 
PROLOG which imitates the inference engine of EMYCIN 
expert system shell. This phase of our work is called 
the shell building process. During the shell building 


process EMYCIN’s data structures, inference mechanism, 
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and the way of reasoning were analyzed. The second 
part was the building of two different knowledge- 
bases. The knowledge-bases are composed of production 
rules and all structural information that EMYCIN 
requires (i.e., context and parameter definitions). 
The third part involved running these knowledge-bases 
and obtaining consultations. The final part was the 
analyzing of the explanation system of EMYCIN. 

EMYCIN is composed of three main parts: the 
knowledge-base construction system, the consultation- 
driver system (inference engine), and the explanation 
system (see Figure-1). The inference engine operates 
on the knowledge-base using EMYCIN's high level 
conceptual structure (context tree), the дата triples 
[attribute, object, value (see Section  II.A.1. for 
details)], and production rules [9]. Reasoning is 
done by backwards chaining, which is the main reason 
for choosing PROLOG as the implementation language, 
since it already posseses this built-in control 
structure. 

The inference engine builds the context tree 
dynamically and, according to the definition of 
parameters (one of the elements of data triples), 
reasons on the production rules to find the value of 


the goal parameter defined by the knowledge engineer. 
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Two different knowledge-bases were built, namely 


the CAR diagnosis system and the FINANCE analysis 


system. Their context and parameter definitions and 
production rules were defined. The inference engine 
was run on these knowledge bases and sample 


consultations were recorded (see Appendix D for sample 
consultations). 

The FINANCE analysis system originated elsewhere 
А This sample knowledge base was chosen 
specifically to test our inference engine. 

Following the implementation of the consultation 
driver system (inference engine), the EMYCIN 
explanation system was analyzed, its deficiencies 
identified, and a new system proposed. Even though the 
explanation system was not implemented, its basic 
structural elements were presented using PROLOG 
definitions, and a small sample of an explanation 
session was built for the CAR diagnosis system, again 
using PROLOG (see Section V). 

The knowledge-base construction system provides 
for the acquisition of an expert’s domain knowledge 
and storing of this knowledge, which is then ready to 
be processed by the consultation driver system. While 
this system was not implemented, requirements for the 


knowledge acquisition system are presented in Section 


TV. 
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While  EMYCIN-PROLOG did not need some of the 
elements of the control structure of the EMYCIN, 
(e.g., the UPDATE-BY list is not used to keep track of 
the list of related rules for every parameter [2]), 
some new properties were added into the static 
definition of parameters (e.g., the "is t" (is traced) 
property of a parameter is to keep track of whether 


the parameter’s value is traced or not). 
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II. THE EMYCIN-PROLOG CONSULTATION SYSTEM 


А. INTRODUCTION 

In this chapter EMYCIN’s data structures and 
inference mechanism are analyzed. Throughout our 
study, the PROLOG implementation of the EMYCIN 
inference engine is referred to as EMYCIN-PROLOG. 
Section II.D explains the functions used in rules and 
section II.E gives а step-by-step analysis of the 
whole consultation cycle. 


Throughout this thesis context and parameter 


names are printed in smaller fonts for clarity 
purposes (i.e., context, parameter). 
В. DATA STRUCTURES 


The structural aspect of the expert’s problem 
solving strategy is reflected in the context types and 
their parameters. These two main elements of the 
system provide the language to express the expert’s 
problem-solving methods for the domain. Besides 
contexts and parameters, another main component is the 
rules which embody domain specific knowledge. The 
following three sections describe the internal 
structure of contexts, parameters and rules and 


introduce the idea of a context tree. 
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1. The Context Tree 
а. Introduction 

In this section MYCIN’s context tree 
structure is used as an example (see Figure-3/4). 

The context tree forms the backbone of 
the consultation system by organizing the conceptual 
structure of the knowledge base and providing a 
framework for the flow of the consultation system. The 
tree also includes the goal for which the consultation 
system will try to determine a value. In our example 
the goal is therapy (i.e., determine the best therapy 
recommandation). Therapy is a parameter of the patient 
context. 

The context tree is composed of at 
least one context type which corresponds to the 
conceptual entity in the domain. One conceptual entity 
from our example is the patient context. As its name 
implies, the context tree is structured in a tree 
hierarchy. Each context type іп the tree resembles a 
record declaration in a traditional programming 
language. Since a context type can have more than one 
instantiation, the context tree has two distinct 
appearances. The first one corresponds to the 
declaration phase of a record and is called the static 
context tree. The static context tree includes every 


context type in it and shows their hierarchical 
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relationship: their root context (patient), all 
parent/son connections (patient context is parent of 
the current culture context), etc. Once the 
consultation starts, depending upon the specific 
consultation, not necessarily all context types are 
included (e.g., therapy context is not included in the 
dynamic tree of the MYCIN). А given context types 
might have more than one instances (current culture 
context has two instances,  culture-1 and culture-2). 
The resulting tree structure therefore would be quite 
different from the static context tree structure. This 
structure variation corresponds to the second context 
appearance and is called the dynamic context tree 
(see Figure-4). The above distinction of static and 
dynamic context tree is illustrated іп Figure-5 and 
Figure-4. These samples were taken from MYCIN [2]. 

Hereafter, we will call the static and 
dynamic context trees the static tree and dynamic tree 
respectively. 

b. Uses Of The Context Tree 
It is very important to understand the 

purpose of the context tree. Defining contexts of a 
problem is not simply naming isolated physical 
entities. The context tree provides a way to represent 
multiple instances of these entities. One of the main 


mistakes in defining the context tree is to define 
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contexts which have only one instance and no more. 
This makes the tree cumbersome and does not bring any 
advantage since this type of context can simply be 
viewed as an attribute of the root context. For 
example, one might want to write rules that use 
various attributes of a car’s carburator, but since 
there is always exactly one carburator for a car there 
is no need to have a carburator context; any attribute 
of the carburator can be attributed to the car 
context. 

There are three main uses of the 
context tree. The first use is to structure the data 
or evidence which is required to advise the user about 
the root context. In our sample system, "subsystem" 
contexts describe the different tests performed to 
locate the problem in the CAR. Also additional 
information about car’s prior repairs are also 
represented in the tree. The context organization is 
shown on Figure-5 and Figure-6. 

The second use is to specify components 
of some object. An example of this use can be taken 
from a system called LITHO, which interprets data from 
oil wells. In this system, each well is decomposed 
into a number of zones that the petrologist can 
distinguish by depth. Context organization of this 


system is shown in Figure-7. 
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The third use is to distinguish events 
or situations that an object can have. An example of 
this use can be shown in CAR example, where different 
repairs in the past represent different situations 
that a repair process can have. 

Cz Internal Structure Of Contexts 

One of the important properties 
associated with a context type is the definition of 
parameter group. A given parameter group defines a 
list of parameters which belongs to a context type. 
While every context generally has its own parameter 
group, one parameter group can be shared by more than 
one context. 

Another property that a context must 
have is an ASSOCWITH which shows the ancestor context. 
Also a context typically has MAINPROPS and GOAL 


properties. The goal property must be defined for the 


root context. They are explained later in this 
section. The consultation is started and driven by 
tracing the parameters defined in the goal ог 


mainprops list. 
The example below shows the properties 
of the context type CAR from the car diagnosis system. 
CONTEXT : Саг 
OFFSPRING : [subsytem,repairs] 


ASSOCWITH ОЙТ 
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PARMGROUP : car parms 
PROMPTS : "This is a car diagnosis program’ 
MAINPROPS : [year,model,problems] 

Below is the list of all possible 
properties of a context type with brief definitions. 

offspring 

A list of descendant context types. It 
shows which context types are direct descendants of 
this context type in the tree. 

assocwith 

The parent context of this context type 
in the tree. e.g., CAR context is ASSOCWITH property 
of the REPAIRS context. 

parmgroup 

A name Which represents group of 
parameters for this type of context. 

prompt! 

The prompt asking whether this type of 
context exists. If the user answer is yes, then an 
instance of this context type is created and its 
MAINPROPS parameters will be traced. If there is no 
PROMPT1 property then it is assumed that there is 
always at least one instance of the context type and 


PROMPTS is displayed. 
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prompt2 

The prompt asking of the user whether 
additional instances of this context type exists. 

prompts 

The prompt that will be displayed when 
the first instance of this context type is created. 
This prompt is simply an announcement of the creation 
of the context instance. Existance of PROMPTS implies 
that at least one instance of this context type 
exists. For example, a PROMPTS property of the CAR 
context is: This is a car diagnosis program. 

mainprops 

List of parameters to be traced once a 
context of this type has been created. The trace 
process follows PROMPT3 or PROMPT1 and PROMPT2 if the 
user’s answer to these prompts is ’yes’. 

2. Parameters 
а. Introduction 

Parameters comprise an important class 
of second level knowledge other than rules; they 
represent properties of the context or describe facts 
about the problem space in general. In the structures 
context, the main use of parameters is to represent 
the data or evidence. Taking examples from the CAR 
diagnosis system, parameters are used to describe the 


status of every subsystem via observations and 
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measurements taken from different parts of the 
subsystem. BATTERY VOLT, HYDROMETER,  AMMETER апа 
DIMMING LIGHT are examples of such parameters leading 
to the description of the status of the subsystem 
context. A car’s status would be completely specified 
by a context tree if values of all parameters 
characterizing each node in the tree were known. 

Another use of parameters is to 
represent the goals or advice to be determined. For 
the CAR problem, the major goal is to determine the 
defective parts of the саг which caused the trouble. 
One of the goal parameters is STALLED_ENGINE whose 
value is the information about the defective part of 
the car causing the engine to be stalled. 

Inferences and data are stored using 
(attribute, object, value) triples. While the object 
is always some context in the tree, the attribute is a 
parameter appropriate for that context within the 
PARMGROUP property of context. 

р. Types Of Parameters 

Parameters are in three different 
classes according to the possible values they can 
take. The simplest are the single-valued parameters. 
These are the parameters such as model of the car or 


battery voltage of the electrical system. They can 
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have only one value at atime. Possible values are 
mutually exclusive for these parameters. 

Multivalued parameters can have more 
than one value at a time. Possible values are not 
necessarily mutually exclusive. For example the 
stalled engine parameter may have more than one value 
which implies that multiple defects in different parts 
of the car may cause the engine to stall. 

Third parameter type is the yes_no 
parameter which is a special kind of single valued 
parameter. It has only two possible values, namely 
әуес” and ’no’. 

C. Internal Structure Of Parameters 

Parameters are categorized according to 
the context to which they apply. While the PARMGROUP 
(parameter group) property of a context type defines 
list of parameters which can be applied to this 
context, the MEMBEROF property of the parameter 
defines which one of the above parameter groups the 
parameter belongs to. Following is a list of 
properties which define a parameter’s internal 
structure. 

memberof 

The name of the corresponding category 


of parameters; any parameter group name. 


26 


valutype 

The type of parameter (singlevalued, 
multivalued or yes no). 

expect 

Permissible values of a parameter whose 
value can be asked of the user. Yes_no indicates that 
a ’yes’ or ’no’ answer is expected. Number indicates 
that the expected value is a number. Any indicates 
that any value can be the answer. 

prompt 

The question to be asked when the 
system needs to know the value of any askable 
parameter. 

can ask 

Whether the parameter’s value can be 
asked or not. 

An example of a parameter and its 


properties follows: 


parameter(hydrometer ). 
hydrometer(memberof,elec parms). 
hydrometer(valutype,singlevalued). 
hydrometer(expect,any). 
hydrometer(prompt,hydrometer prompt). 


hydrometer(can ask,1). 


2T 


hydrometer prompt 
print('What is the specific gravity measured by 
hydrometer ??’). 

The properties of a parameter and 
context are defined as PROLOG facts. The prompt 
property of a parameter calls a PROLOG routine which 
simply prints out the question to be asked of the 
user. An associated property "15 +" (15 traced) of a 
parameter for a particular context instance is defined 
dynamically, showing that parameter’s value was traced 
(i.e., an attempt was made to infer its value). 

5. Rules 
a. Introduction 

The largest component of the knowledge 
base of The EMYCIN-PROLOG consultant is the rule base. 
The rule base is a collection of production rules 
which instruct the system how to reason and arrive at 
conclusions [9]. 

While the contexts and parameters 
record the structural information about the domain, 
the rules describe the action ог problem solving 
component of the expert’s knowledge. The content of 
the rules and their ordering in the database determine 
the search path taken to conclude a value for goal 


parameter. The search is depth-first because PROLOG’s 
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inherent backtracking mechanism was used. Thus 
ordering of rules has an important effect on the 
consultation path. In the EMYCIN-PROLOG consultation 
system rules which conclude a value with higher 
certainty were put before the rules with lesser 
certainty. The heuristic used by EMYCIN named "unity- 
path" consists of ordering the rules with certainty 
(CF = 1 or -1) first and executing in that order. Thus 
if any rule with CFrule = 1 or -1 succeeds, any other 


rule will not be tried and the search path will be 


shortened. 

Rule execution indirectly causes the 
context instance to be created, thus providing the 
mechanism for propagation of the context tree. 


Creation of a new context occurs when a rule that 
tried to evaluate a value for a parameter and context 
tree proves to have no context to which this parameter 
is applicable. A context is applicable to a parameter 
if the parameter is a member of the parameter group of 
this context (MEMBEROF = PARMGROUP). In this case an 
applicable context is found and its new instance is 


created (see Section II.E). 
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b. Imternal Structure And Definition Of 


Rules 
Rules have two main parts: action and 
premise. Below is the general form of a rule in PROLOG 


form (rule template). 


PARAM(CNTXT,N,VALUE,CFrule) 


eval premise(FUNC1,PARAM1,CNTXT,N,[VAL1],CF1), 
eval premise(FUNCn,PARAMn,CNTXT,N,[VALN],CFn), 
min([CF1,CFn],CF), 


conclude(CNTXT,N, PARAM, VALUE,CF,CFrule). 


An example PUES and its English 


translation is: 


RULE (PROLOG form) 


battery(CNTXT,N, ’weak’ ,@.5) 


eval premise(greateq,hydrometer,CNTXT,N,[1250],true), 
eval premise(lessp,battery volt,CNTXT,N,[12],true), 


conclude(CNTXT,N,battery,'weak',0.5,1.0). 


RULE (English Translation) 
IF hydrometer value of electrical system 
is greater or equal to [1250] with CF » 0.2. 


AND 
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battery volt value of electrical system 
is less than [12] with CF > @.2. 
THEN 
battery value of electrical system is 
weak With certainity value @.5. 

(Note that the function min or maxis 
not used since functions greateq and lessp do not 
return a certainty value). 

The PROLOG routines with the 
eval premise predicate construct the PREMISE of a 
rule. After all individual eval _ premise routines are 
executed succesfully, a certainty calculation is made 
via either the ’max’ or ’min’ routine, which calculate 
the maximum or minimum of all certainty numbers that 
every individual eval premise routine returns. 

The structure of the clause 
eval _ premise is "eval _premise(FUNC, PAR, CNTXT, N, 
[VAL], CF)" where FUNC is one of the functions defined 
in Section II.D. PAR is the parameter (attribute) to 
be evaluated,  CNTXT,N is tree pointer showing current 
context instance at any particular time of the 
consultation. Its value is left as a variable. The 
particular context instance to be applied is 
determined during the consultation by referring to the 
existing dynamic tree. The determination of the 


context instance is explained in detail in following 


51 


section. The [VAL] is one or more parameter values 
which bind to a given parameter’s value. This value or 
values in the list are of interest. If the parameter 
has a value in this list with CF value limits defined 
by the FUNC used, then the eval premise clause 
succeeds. 

The ACTION part of a rule is simply the 
last routine in the body of a PROLOG rule. While there 
may be other action predicates, the only predicate 
used in EMYCIN-PROLOG is the conclude routine which 
inserts the (attribute, object, value) triple into the 
dynamic database with a certainty value. Note that 
insertion implies updating any other database triple 
if it is already in the database with a different 
certainty value. This updating process is explained in 


Section III.A. 
c Creation Of Context Instances And Rule 


Evaluation 

Creation of new contexts during the 
consultation process builds the dynamic tree. PREMISE 
clauses in a rule do not refer to a specific instance 
of a context, rather context type and instance are 
determined indirectly depending upon the current 


dynamic tree. 


A consultation begins with the 


automatic creation of a зад context and tracing its 


A consultation begins with the 
automatic creation of a root context and tracing its 
MAINPROPS parameters with respect to this instance of 
the root context. The evaluation process executes 
rules unless the parameter to be evaluated is askable 
(can ask - 1). In the ACTION and PREMISE parts of a 
rule variable pair CNTXT,N 1s used which is bound to 
the appropriate value during execution. First the 
current context is tried; if current context is not 
applicable then the required context is found on the 
current branch of the dynamic tree (i.e., the path 
from the root node to the current context to which the 
parameter in question can be applied). If no context 
is found on the current branch, then the applicable 
context should be a descendant of the current context. 
All such contexts are found and instantiated and the 
current rule is applied to each of these contexts. 

When each context instance is created 
its MAINPROPS parameters are traced. After all such 
contexts have been instantiated and their MAINPROPS 
parameters traced, the original parameter that 
triggered this mechanism is traced with respect to all 


of the newly created instances. 
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C. INFERENCE MECHANISM 

Inference is done in a goal-oriented fashion. The 
system goal is defined in the MAINPROPS property of 
the root context. While the system tries to achieve 
that goal, subgoals are set up and tried in turn. This 
process is recursive and continues until one of the 


subgoals is achieved and in turn the top level goal is 


achieved. 
For example, in the CAR diagnosis program one of 
the top level goals is "stalled_engine". The system 


calls the rule: 


stalled engine(CNTXT,N,VALUE,1) 
eval premise(same,electrical,CNTXT,N,VAL,CF), 
hypothesis(electrical,Cx,Nx,VALUE,CFc), 


conclude(CNTXT,N,stalled engine,VALUE,1,CFc). 


The premise of this rule is the subgoal to be 
pursued which in turn causes other  subgoals to be 
tried until, finally, one of the subgoals succeeds 
without need to try another subgoal. 

At each subgoal-pursuing process in the above 
reasoning chain, EMYCIN-PROLOG proceeds in two stages. 
It first attempts to update the dynamic database with 


the obtained value of the parameter for the related 
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condition. 

During the update stage, there are two cases to 
consider. 

In the first case the parameter value can be 
known by the user (can_ask = 1). In this case the user 
is directly asked for the value of the parameter. An 
example from the car diagnosis problem of such a 
question is: "What is the specific gravity measured by 
the hydrometer?" EMYCIN-PROLOG uses the prompt 
property of a parameter to produce this question. The 
user's response is checked by referring to the expect 
property of the parameter. If the answer is not an 
expected value then the user is warned and the same 
question is repeated until avalue in the limits of 
expected value 15 obtained. If the answer is "unk" 
(unknown) then rule base is consulted to evaluate the 
parameter’s value for the context of a particular 
instance. 

In the second case the parameter value cannot be 
asked of the user, but there are rules which mention 
the parameter in their action parts. In this case 
EMYCIN-PROLOG invokes all these rules in order to 


infer a value for the parameter. 


In the second stage (hypothesis retrieving) the 


dynamic database is consulted for the 115% of 
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In the second stage (hypothesis retrieving) the 
dynamic database is consulted for the list of 
hypotheses regarding the value of the parameter. The 
function in the subgoal is applied to this list in an 
attempt to satisfy the condition, and in turn to 
achieve the subgoal. 

After all rules mentioning the parameter in their 
action part have been tried, the parameter for the 
given context is marked as ’traced’ i.e., the "is t" 
property of the parameter for the given context is set 
to "1". Further requests for this parameter’s value 
for the given context are met directly from the 
dynamic database. This process prevents redundant 


invocation of the rules. 


D: FUNCTIONS 

There are different types of premise functions 
that can appear in rules. During the consultation 
process, the system wants to know for a given 
parameter one or more of the following: 

Whether or not its value is known; 

Whether or not its value satisfies the specific 
value(s) with a specific certainty value limit; 

Whether or not its value is known to be true with 


a certainty value; or 
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Whether or not its value satisfies a numerical 
value with CF > 0.2. 
The function names used for each category above 


are: 


(1) KNOWN,NOTKNOWN,DEFINITE,NOTDEFINITE; 

(2) SAME, THOUGHNOT; 

(3) NOTSAME, MIGHTBE, VNOTKNOWN, DEFIS, NOTDEFIS, 
DEFNOT, NOTDEFNOT; 

(4) GREATERP,LESSP,GREATEQ,LESSEQ. 


Functions in the first three groups have 
certainty factor limits which change according to 
whether they are applied to a multivalued, 
singlevalued or yes_no parameter. The first three 
groups of functions are called  nonnumeric predicate 
functions and the last groups of functions are numeric 
predicate functions. Another group consists of 
conclusion functions. Only the conclusion function 
conclude is used in EMYCIN-PROLOG. 

Functions are applied to data triples stored in 
the dynamic database. All return a truth value except 
SAME and THOUGHNOT. Functions in the first group are 
concerned not with the actual value of a parameter but 
with whether or not it is known. For example, 
known(condition, electrical system, 1, true) succeeds 
if and only if the condition of the electrical system 
is known with a certainty factor greater than 06.2. 

A list of all functions with their formal 


definitions are given in Appendix B. 


27 


Е. CONSULTATION CYCLE 
1: Detailed Analysis Of The Control Structure 

A consultation starts with the creation of 
the root node in the context tree, a context of type 
CAR in our example. Creation of any context involves 
two basic processes to be done at the outset. 

First the root node is added to the context 
Lree. 

Second the parameters in its MAINPROPS list 
are traced. 

The MAINPROPS property for context type CAR 
is the list [year,model,problems].  EMYCIN-PROLOG 
traces the value of each of these three parameters in 
turn. Once all of these three parameters have been 
traced the consultation terminates since finding a 
value for PROBLEMS parameter is the final goal of the 
CAR diagnosis system. 

While YEAR and MODEL are askable parameters, 
PROBLEMS is not an askable parameter. Therefore, 
following the evaluation of the first two parameters, 
the system proceeds to infer the third parameter's 
value by consulting the rule base. The rule that 
mentions this parameter presents amenu to the user 
asking the kind of the problem occurring in the car. 
Representing this menu and asking for information are 


not considered part of the goal-oriented reasoning 
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which the system follows. However, this initial 
information serves to focus the search and eliminate 
unnecessary search paths. The user's answers cause 
another parameter value to be sought. This value is 
stalled engine in our example consultation. Again 
stalled engine is not an askable parameter. Thus the 
rule base is consulted апа the rules mentioning this 
parameter are tried in order. Our current context and 
its instance is CAR,! (the value of the tree pointer). 
Rules mentioning the stalled engine 


parameter are: 


stalled _engine(CNTXT,N,VALUE,1.@) 
eval premise(same,electrical,CNTXT,N,VAL,CF), 
hypothesis(electrical,C,Nx,VALUE,CFc), 


conclude(CNTXT,N,stalled engine,VALUE,1.9,CFc). 


stalled engine(CNTXT,N,VALUE,1.0) 


eval premise(same,fuel,CNTXT,N,VAL,CF), 
hypothesis(fuel,C,Nx,VALUE,CFc), 


conclude(CNTXT,N,stalled engine,VALUE,1.0,CFc). 


The premise of the first rule refers to the 


parameter electrical which is the parameter of the 
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electrical system context. Since this parameter is not 
applicable to the current context type car, the 
applicable context electrical system has to be found 

in the tree. It is not in the tree so it will be 
created. Here the main consultation has to stop 
temporarily to create this new context. 

Тһе electrical system context is a direct 
descendant of the car context. The system makes use of 
the PROMPT1, PROMPT2 and  PROMPT5 properties of that 
context type during the creation process. If there is 
a PROMPT1 property, the context may not have any 
instance at all. If there is a PROMPTS property then 
there must be at least one instance of the context. 
The electrical system context has a PROMPT3 property; 
hence it is printed out and context instance Фё 
created. 

When the second context is to be created, 
the PROMPT2 property is printed out and the user is 
asked whether another instance of this context type is 
to be created. The creation process continues until 
the user replies "no". Then this context is marked as 
nonaskable by inserting into the database the fact 
showing that the askable property of this context is 
Zero. 

The next step is to trace the parameter(s) 


in the MAINPROPS list of the context. Since it is an 
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empty list for electrical_system (there is no 
parameter to be traced immediately), control of the 
consultation goes back to the evaluation of the 
parameter electrical. The tree pointer’s value is now 
ELECTRICAL SYSTEM,1. | 

The following sequence of events describes 
the rest of the consultation process. 

Electrical is not an askable parameter so 
the rule base 15 consulted. The first rule has two 
parameters in its premise, DIMMING LIGHT and BATTERY. 

DIMMING LIGHT and BATTERY are applicable to 
the current context and also DIMMING LIGHT is an 
askable parameter (can_ask = 1). The prompt property 
of this parameter is invoked and the question: ’Turn 
on your lights and operate the starter; Do the lights 
go out or become dim ? (yes/no)’ is asked. If the 
answer is "yes" then the condition is satisfied since 
the specified value [yes] is defined in the [VAL] part 
of the eval premise clause (first premise clause). The 
returned certainty value is "1" unless a number is 
specifically given with the answered value (e.g., 
yes 9! means that answer is yes with certainty value 
0.9). 

The second condition is the evaluation of 
the BATTERY parameter. It is not askable so again the 


rule base is consulted and the first related rule has 
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two parameters to be evaluated in order to succeed: 
HYDROMETER and BATTERY VOLT. 

The eval_premise conditions which mention 
these parameters have the numerical predicate function 
LESSP. It is evaluated the same way as DIMMING LIGHT. 
The question is asked and the answer is compared with 
the specified value, which is [1250] for HYDROMETER 
and [12] for BATTERY VOLT. If in our case the answers 
are less than these two values, the conditions 
succeed. The next condition is the conclusion function 
which inserts the hypothesis about the BATTERY 
parameter into the database: 
hypothesis(battery,electrical system,1,weak, 1) 

Following this first BATTERY rule all other 
rules about BATTERY are also tried and, if applicable, 
other hypotheses about this parameter are inserted 
into database and the is t property of this parameter 
is set to "I" for this current context, indicating 
that parameter’s value was traced. If its value is 
needed in any subsequent rule, the value is retrieved 
from database directly. At this point control goes 
back to the first electrical rule. Since the first two 
conditions have succeeded, the next premise clause 
returns a minimum of concluded certainty values as a 
certainty value for the premise of the rule. The next 


clause before the rule succeeds іс the conclusion 
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function; another hypothesis now is entered into 
database: 
hypothesis(electrical,electrical system,1,battery,0.8) 
assuming CF1 and CF2 are both 1, min(({CF1,CF2],CF) 
returns CF = 1, and the concluded hypothesis’ CF value 
is the multiplication of the rule’s certainty value 
(here 0.8) and the premise’s certainty value 1. 
Following this first electrical rule all 
other rules about electrical also are tried. At the 
end the ist flag is set to "1" and control is sent 
back to the first stalled_engine rule. The next clause 
retrieves the concluded value of electrical by calling 
the clause hypothesis(electrical,C,N,VAL,CF), whose 
variables in the argument list binds the previously 
concluded value. The last condition is the conclusion 
function, which concludes a value (i.e., inserts a 
hypothesis into the database). The inserted hypothesis 
15: 
hypothesis(stalled engine,car,1,battery,0.8). 
Following this rule’s execution, other rules 
about stalled engine are also tried, and the ist 


property is set to "1" again. An exhaustive execution 


of all stalled_engine rules concludes the 
consultation. Before the consultation ends all 
concluded values of stalled engine parameter are 


printed out. The rest of the concluded hypotheses 
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obtained during the consultation are also printed out 
for debugging purposes. 
2. Departures From The Main Control Structure 

At any particular time, evaluation ofa 
parameter is exploited via rules in the evaluation of 
goal parameter values. So the backwards chaining 
mechanism is not strictly followed throughout the 
consultation. 

Evaluation of any parameter’s value may 
require creation of a context instance as explained in 
a previous section. Each time a context is created its 
MAINPROPS parameters are traced whether they are 
needed or not. Following this, the trace process 
brings control back to the point from which it 
departed. A typical example of this departure is seen 
when an attempt is made to evaluate the THROTTLE TEST 
parameter of а fuel system context following the 
creation of this context. The MAINPROP parameter will 
be traced whether this parameter is needed at once or 


not. 
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ТТТ. INEXACT REASONING 


Since the knowledge base of an expert system is 
basically a collection of facts and rules obtained 
from the user and domain expert and since most of the 
data/knowledge obtained are imprecise in nature, it is 
common that both the fact and inference rules are not 
completely certain. 

Uncertainty is introduced into the EMYCIN-PROLOG 
expert system in two ways. First, factual knowledge 
provided by the user represents observable evidence or 
symptoms. This evidence might be difficult to observe 
or might have to be measured with inaccurate or 
unreliable equipment. A number aS a measurement of 
this type of uncertainty can be associated with the 
observed value. 

The second type of uncertainty exists in the 
inference rules. The inference rules are intended to 
capture the expert’s experience, heuristics, 
judgement, and intuition, which is inherently vague 
and nondeterministic. While the rules are being 
written, the expert’s reluctance to give a strong 
relationship between the premise and conclusion of a 
rule would force the rule author to introduce a number 


accounting for such uncertainty (CFrule). 
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Since the decisions are made by human experts 
without perfect information - this is what makes 
experts experts - our concern in this section is to 
explain the calculus used in EMYCIN-PROLOG to combine 
different kinds of uncertainty inte a final 
uncertainty measure associated with the final 


conclusion. 


A CERTAINTY FACTORS 

Factual information is stored in the database as 
(object, attribute, value) triples as mentioned 
before. A number in the range of -1 to 1 is 
associated with these triples assigning a measure of 
belief or disbelief to the statement: 

The «attribute» of «object» is «value» 
where object (CNTXT,N) is a context instance as 
previously defined. An object may have several 
attributes (PAR). For example, electrical system-1 in 
the context tree іп Figure-2 has attributes of 
HYDROMETER and BATTERY VOLT (See knowledge-base of CAR 
diagnosis system in Appendix C.1.). Each attribute is 
called a parameter. The third field is simply the 
value of that attribute of the object. 

A hypothesis is a (object, attribute, value) 
triple and a certainty value associated with it. The 


object is represented as a tuple: context name and 
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instance number (©.г., electrical system,1). For 
example, hypothesis (battery, electrical system, N, 
weak, 0.8) denotes that the condition of the battery 
is believed to be weak with the belief value 0.8. 

Whenever a hypothesis is constructed, either with 
the help of the rule or with information from the 
user, the associated certainty value is also 
calculated. If a rule with rule certainty value 
"CFrule" is used, then the calculation proceeds as 
follows. 

The certainty of premise is calculated by taking 
the minimum or maximum of the certainty values (CF) of 
the premise. For example, in the rule from CAR 


diagnose system: 


electrical (CNTXT,N, 'starter circuit', 0.6) 
eval premise (same,dimming light,CNTXT,N,[no],CF1), 
eval premise (same,fuel sys,CNTXT,N,[ok],CF2), 
min([CF1,CF2],CF), 


conclude(CNTXT,N,electrical,'starter circuit',0.6,CF). 


There are two CF values, namely, CF! and CF2. 
The certainty of the premise calculated by taking the 
minimum of these two values since the premises are 


ANDed. We would be taking the maximum of those values 
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if they had been ORed. Following this calculation, 
CFnew=CF*CFrule is formed (CFrule is 6.6 in above 
example rule). The final result taken from the 
multiplication process becomes the certainty value for 
the concluded hypothesis. ЕН therte is another 
hypothesis in the database with the same triple, then 
its certainty (CFold) is combined with the new 
certainty value (CFnew). 

Combining uncertainty values into a final value 
proceeds by updating existing hypotheses until all 
applicable rules have been executed. The following 
small sample sessions show the use of combining 
Functions and obtaining a final conclusion based on 
the criteria of certainty values. In the EMYCIN- 
PROLOG, we preferred to list all concluded values of 
the goal parameters so that user will have a chance to 
see all possible conclusions with their certainty 
values. 

Assume the goal parameter of the consultation is 
battery and the database has the following hypotheses: 

hyp #1 
hypothesis(battery,electrical system,1, bad connectio- 
ns, 0.5). 

hyp #2 


hypothesis(hydrometer,electrical system,1,1200,1.0). 
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hyp #3 
hypothesis(battery volt,electrical_system,1,10,1.0). 
hyp #4 


hypothesis(battery,electrical system,1,weak,0.7). 


The following rule concludes a hypothesis for the 


attribute battery: 


battery(CNTXT,N, ’weak’ ,®.8) 
eval premise(lessp,hydrometer ,CNTXT,N,[1250],true), 
eval premise(lessp,battery_volt,CNTXT,N,[12],true), 


conclude(CNTXT,N, ’weak’,1.0,0.8). 


If the first two clauses in the premise succeed 
then the following hypothesis is concluded: 

hyp #5 
hypothesis(battery,electrical system,1,weak,0.8). 

[Note that the tree pointer points to 
(electrical system,1.)]. Now hypothesis #4 and #5 
should be combined into anew hypothesis since they 
conclude for the same (attribute,object,value) triple. 

Using the first combination function (see next 
section for the explanation of combination functions) 


leads to the calculation: 
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CFcomb CFold + CFnew * (1 - CFold) 


0.7 к 0.8 * (1 0.7) 
CFcomb = 0.94 

Following the update process hyp #4 becomes: 
hypothesis(battery,electrical system,1,weak, 0.94). 

Comparing the final certainty values and taking 
the maximum опе, the final conclusion of the 
consultation is: 

concluded(battery,electrical system,1,weak,0.94). 
which translates as: 

The concluded (value) of battery (attribute) of 
electrical system,1 (object) is "weak" with certainty 
value 06.94. 

As we mentioned earlier in our implementation a 
list of all hypotheses which conclude a value of the 


goal parameter are presented. 


Be COMBINING FUNCTIONS 

There are two possible cases during the 
combination process which are determined by the sign 
of the old and new certainty values (CFold,CFnew). 


These different cases and corresponding combining 


functions are: 
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(1) CFold > @ and CFnew » 0 

CFcomb = CFold + CFnew * (1- CFold ) 
(2) (CFold * CFnew) < @ 

CFcomb = (CFold + CFnew )/(1-—- min(CFold,CFnew) ) 
(5) CFold « Ø and CFnew < Ø 

Сесотђ = -(-Скоја - CFnew * (1 + CFold)) 


The update process or combining certainty values 
is used when the same value for the same object of an 
attribute (PAR) is evaluated with different certainty 


values. 
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IV. KNOWLEDGE ACQUISITION 


The knowledge engineer’s main task is to enter 
and debug the production rules and the facts about 
static knowledge other than rules. Acquisition of this 
static knowledge requires two levels of control, 
namely catching common syntax input errors such as 
misspellings and catching inconsistencies which are 
likely to occur between rules. In the EMYCIN-PROLOG 
consultation system, rules are typed from the terminal 
by the knowledge engineer and no automatic consistency 
or error checking are performed. In this section 
possible mechanisms for such controls are discussed. 

Rules are in PROLOG rule format as explained in 
section II.A.3. 

Acceptance of a rule into the rule base requires 
the following consistency checks: 

All parameters used in the rule should be 
defined. 

The sum of certainty values of rules whose 
PREMISEs can be true at the same time but conclude 
different values should not exceed 1. For example the 
following two rules cannot exist in the same rule 


base: 
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battery(CNTXT,N,’bad connections’ ,@.7) 


eval premise(greateq,battery_volt,CNTXT,N,[12],true), 


conclude(CNTXT,N,battery, ’bad connections’ ,@.7,1). 


battery(CNTXT,N, ’weak’ ,@.5) 


eval premise(greateq,battery_volt,CNTXT,N,[12],true), 


conclude(CNTXT,N,battery,'weak',0.5,1). 
since @.5 + @.7 = 1.2 and 1.2 > 1. 


At least one rule should exist inthe rule base 


for every non-askable (can ask - 0) parameter. 
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V. EXPLANATION SYSTEM 


A INTRODUCTION 

One of the maln design considerations in building 
an expert system is the ability to explain its advice 
(i.e., provide the user with enough information about 
its reasoning so that the user can decide whether to 
follow the recommendation). 

In this section we will introduce the 
requirements for a complete explanation module. One of 
the main issues involves answering the question ’WHY’ 
asked by the user when the system requests data to 
continue the consultation. (It is numbered as WHY1 to 
distinguish it from other WHY questions.) In this case 
the WHY1 question can be interpreted as: "How is the 
request for this data related to a goal?" Other WHY 
questions can be defined; one of them would be: Why 
did you request this data to reach this goal? - WHY2- 
(1.e., give the strategy behind the inferencing 
process). 

Besides these two main WHY questions, some other 
questions about the system’s reasoning process 
include: 

How does one goal lead to another? 


How is a goal achieved? 
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Why is one hypothesis considered before another? 

Why is one question asked before another’? 

In the current explanation scheme of EMYCIN, the 
question WHY is handled by giving to the user the rule 
which evaluates the parameter under consideration. 
Successive WHY questions invoke antecedent rules [8]. 

This explanation scheme uses just the rules. 
Since rules donot have all the necessary knowledge 
elements, as discussed below, this scheme has some 
deficiencies. 

First the ordering of hypotheses ina rule’s 
premise will affect the order in which goals are 
pursued. There is no explicit knowledge showing 
reasons for this ordering. 

second the ordering of rules affects the order in 
Which hypotheses and hence subgoals are pursued. There 
is no explicit knowledge about why а particular 
ordering is preferred (i.e., why is one hypothesis 
considered before another). 

Third the inference steps taken by the author 
Which connect the premise of a rule to the action part 
are omitted. The intermediate reasoning steps provide 
justification for a particular rule used. The argument 
could arise as to whether there is intermediate 
reasoning connecting a premise to an action. Our 


empirical study in some existing rule-based systems 
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showed us that most of the rules used in those systems 
have the knowledge in compiled form (i.e., parts of 
the expert’s reasoning is left out of a rule). 
Specifically in our CAR diagnosis system design we did 
not need intermediate reasoning steps to Бе defined 
explicitly for a working consultation program with 
respect to the running of the consultation session. 

The above three types of knowledge, implicit in 
rule design, should be defined explicitly to satisfy 
one of the main design considerations of an expert 
system, namely the explanation of its reasoning. Our 
special interest has been focused on the type of the 
knowledge explained in the third item above. 


An example rule from the CAR diagnose system is: 


electrical(CNTXT,N,’low_starter resistance’ ,9.7) 
eval premise(same,ammeter,CNTXT,N,[yes],CF1), 
eval premise(same,starter motor,CNTXT,N,[ok],CF2), 
min([CF1,CF2],CF), 
conclude(CNTXT,N,electrical,'low starter resistance', 


0.7,СЕ). 


The above rule concludes a value about the 
parameter electrical. Two premise clauses require 


values of the parameters ammeter and starter motor in 
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order. In either of these premise clauses, any 
information which connects them to the parameter 
electrical is not known. Тһе answer to the question: 
"WHY do we need to know about  ammeter and 
starter motor to be able to obtain a value for the 
electrical parameter?" is implicit in the rule. We 
need additional knowledge (support knowledge) to 
answer the above question, which corresponds to the 
answer of WHY1. This question is asked of the system 
by the user when the system requests a value of 
ammeter ОГ starter_motor. One of the possible 
explanations for such a WHY question is as follows: 
The reason for looking for a value of ammeter is that 
ammeter Measures electric current and electric current 
is produced by the electrical system, so any change of 
the ammeter value gives a clue about the condition of 
the electrical system. Similarly, an explanation for 
the search a value for the starter motor parameter 
would be that the starter motor requires battery 
voltage to operate. If the starter motor resistance is 
short circuited, the battery voltage is used up and 
very little voltage is left to crank the engine. The 
battery voltage measures the battery performance and 
battery performance is the quality of the battery. 
Since the battery is part of the electrical systen, 


any problem in the starting system is likely to have 
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an affect on the condition of the electrical system. 
So we need to know about the starter_motor parameter. 

The above two paragraphs provide the support 
knowledge required to bring a sound explanation to the 
user’s queries about system’s reasoning. The rest of 
this chapter illustrates ways of structuring and 
representing this support knowledge and giving 
explanations by using this knowledge when it is 
requested. 

Once the representation scheme for the support 
knowledge is defined, this knowledge is acquired from 
the expert, we then proceed with structuring and 
representing this knowledge. In the following three 
sections these issues will be presented using CAR 


diagnosis system. 


В. ACQUIRING AND STRUCTURING THE SUPPORT KNOWLEDGE 
In the explanation phase, we focus оп а 

particular WHY question, namely: How is a request for 
this data related to a goal? This question focuses on 
a rule. Each individual premise and action part of a 
rule requires the support knowledge. After all this 
knowledge is obtained, it is first converted into an 
explanation tree from the expert’s natural language 
form and then into a semantic network, and finally all 


of such semantic networks for individual rules are 
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combined into one semantic explanation network which 
corresponds to the support knowledge for the whole 
rule base. Support knowledge is represented ina 
semantic network. To explain the above process we use 
the CAR diagnosis rule-base. Some of the system’s 
requests for data from the user can be seen in 
Appendix D. The explanation system is invoked if the 


user answers WHY to any of these questions. 


с. NATURAL EXPLANATION AND EXPLANATION TREE 

The explanation process involves three main 
activities: giving examples, eliminating alternatives 
and giving reasons [15]. The expert tries to reach 
commonly known concepts using the above three building 
blocks of natural explanation. Given an explanation 
from the expert, our first goal is to structure and 
represent this discoursive form of explanation in the 
tree form. 

The explanation tree is composed of nodes and 
statements connected to them. А statement may be 
another node, thereby providing an embedded structure. 
Nodes are nonterminals of the grammar’ and statements 
are terminals [15]. In our case study only one main 
building block, "giving a reason" 15 used. The 
corresponding grammar is : 


start ==> 1CLUE/RSN e e 
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e ==> STMT/RSN е е(еп) 
е ==>  RSN/STMT е(еп) е 
е ==> AND - OR e e(eh) 
e ==>  IF/THEN e e 
e ==> statement 
where n>=1. 
1CLUE/RSN, STMT/RSN, RSN/STMT, AND, OR and 


IF/THEN are possible statement connectors. Their brief 


descriptions are: 


1CLUE/RSN еі е2 : | one of the clues to get a 


value of e2 is el. 


STMT/RSN el e2 : the reason for e2 is el. 


RSN/STMT e1 e2 : the reason for el! is e2. 
AND el e2 : el and e2. 

OR e1 e2 : "él Orme: 

IF/THEN e1 e2 : if el then e2. 


The explanation tree provides a more powerful 
method of acquiring an explanation from the expert. 
Once the expert’s explanation is structured into the 
tree, it is easier to proceed since the explanation is 
divided into smaller parts and each part corresponds 
to one element of the grammar. For this reason 
construction of a individual explanation tree 
(acquisition of explanation knowledge) becomes the 


crucial step. An example of an explanation tree is 


given in Figure-8. 
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D SEMANTIC EXPLANATION NETWORK 

After the explanation tree is formed, the next 
step is to construct a corresponding semantic network. 
First the terminal nodes in the tree are structured 
into their semantic network equivalents. Each node 
in the semantic network has a STATUS and PATH link. 
The path link provides information about relationship 
between nodes. The status link provides information 
about possible conditions of the node (parameter). 
Rules in the inference network connect these 
conditions to each other (see following section for 
inference network). 

The following example explains the construction 
of the semantic network, starting from the natural 
language form of explanation. An explanation (answer) 
to the question, “How is the data about starter_motor 
related to the electrical parameter?" would be: "The 
starter motor works with battery voltage; the battery 
voltage is the quality of the battery; and the battery 
is part of the electrical system. If there is any 
problem in the starter motor, then the electrical 
system is likely to exhibit of this problem. For 
example: if a starter motor has a low resistance, then 
the battery voltage is consumed which in turn causes 


the battery to be in bad condition." 
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The explanation tree corresponding to the above 
explanation is depicted in Figure-8 and the semantic 
network in Figure-9. The IF/THEN conditions of the 
tree represented in the status links and other 
terminal nodes provide the relationship links between 


nodes (parameters). 


Е INFERENCE NETWORK 

The inference network is the representation of 
the semantic network in PROLOG rules and facts. It is 
composed of three main parts: inference rules, 
relationship facts and path facts. 

Inference rules provide all hypothetical 
conditions of parameters and their connections to each 
other. They correspond to the IF/THEN nodes of the 
explanation tree. 

Relationship facts simply represent relationships 
between parameters. For example the fact 
starter motor(works with,battery voltage) shows that 
the relationship between the parameters starter motor 
and battery voltage is one in which the starter motor 
requires the battery voltage to operate properly. 

A path fact is used to facilitate the 
implementation of our explanation system. It directs 
the inference process in the inference rules. There 


may be more than one path between two parameters in 
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the semantic network. Only one path is traced ata 
time and the inference to be considered next is 
determined by the path list obtained from path facts. 

The inference network is depicted in Figure-11 
which corresponds to the semantic network in Figure-9 
and also corresponds to the natural explanation given 
in Section V.D. Two parameters are the key values of 
the tracing process: Starter motor (one premise 
condition parameter of the rule) and electrical 
(action parameter of the rule). The tracing of the 
inference network and the providing of an explanation 
can be summarized in following sequence of events. 

The path list(s) are obtained from path facts 
using key parameters: 
path(starter_motor,electrical, [battery voltage, 
battery]). Complete path list for this example is: 
[starter motor,battery voltage,battery,electrical ] 

Every consecutive parameter in the list should 
have a corresponding relationship fact in the 
inference network. After tracing, the following list 


of facts are obtained: 
starter motor(works with,battery voltage). 


battery voltage(quality of,battery). 


battery(part of,electrical). 
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Inference rules mentioning every parameter in the 
list are extracted. Starting from the last element of 


the list (electrical in this case): 


electrical(status,bad) :- battery(status,bad). 
battery(status,bad) :- 

battery voltage(status,used up). 
battery voltage(status,used up) :- 


starter motor(status,low resistance) 


The rule extracting process ends when the first 
element of the list is encountered (starter motor 
here). 

Finally obtained facts and rules are put in 
explanation form as follows: 

Starter motor gives a clue about electrical 

SINCE 

starter motor requires battery voltage AND 

Battery voltage is quality of battery AND 

Battery is part of electrical 

AND 
IF starter motor has low resistance 
THEN battery voltage is used up 
AND 
IF battery voltage is used up 


THEN battery condition is bad 
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AND 
IF battery condition is bad 


THEN electrical system condition is bad. 


The first statement mentions the two key 
parameters. The subsequent list of ANDed sentences are 
facts obtained from the inference network and 
connected to the first sentence with "since". The rest 
of the explanation is  ANDed rules, again obtained 
from the inference network. Figure-10 through Figure- 
16 shows all elements of the explanation system 
(explanation trees, semantic networks, inference 
network) for a CAR diagnosis system. An explanation 
may not have the second part of above example; in this 
case only first part of ANDed sentences are given as 


explanation. 
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УІ CONCLUSION 


А. THE LESSONS LEARNED 

First we studied EMYCIN in detail. EMYCIN has 
some weaknesses and problems. Some of them are 
explained in Section VI.C. We also discovered that the 
existing explanation system was insufficient and 
proposed a new explanation system in Section V. In 
building the EMYCIN-PROLOG inference engine, and the 
knowledge-base (CAR diagnosis system), and running the 
consultation system, we experienced the building 
process of a complete expert consultation system. We 
can divide this building process into two main parts. 
The first part is building the shell (e.g., EMYCIN- 
PROLOG) and second part is constructing a knowledge- 
base (e.g., CAR diagnosis knowledge base). During the 
first part a high-level conceptual structure should be 
defined. This structure should be independent of the 
knowledge domain and should be able to work with 
different domains. In our study the two different 
domains are the CAR diagnosis system and the FINANCE 
analysis system. The high-level conceptual structure 
of EMYCIN is the context tree and the parameter 
definitions. The construction of the knowledge-base 


consists of the definition of contexts, parameters, 
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and rules. We worked by starting from a small model of 
the domain and expanded the model gradually. After the 
complete knowledge base was built we ran a 
consultation and, according to the results obtained, 
we made changes to the knowledge-base (i.e., adding 
the new parameters, the new contexts, changing 

or adding new rules, etc). This process continued 
iteratively until satisfactory recommendations were 
obtained from the consultation system. 

Implementing the above two parts showed us the 
complete cycle of the expert system building process. 
We experienced the role of the shell designer апад the 
knowledge engineer. Finally we had a clear 


understanding of the expert system design process. 


B. REQUIRED HARDWARE AND SOFTWARE 

During our study we translated the  EMYCIN 
inference engine into the PROLOG system (EMYCIN- 
PROLOG) and succesfully combined two different 
knowledge-bases with this PROLOG system. The EMYCIN- 
PROLOG was first implemented on the  PROLOG-86 
interpreter [16] with 16-bit IBM-PC machine working 
under MS-DOS or PC-DOS. Later the program was 
transferred, with minor syntactical changes, onto С- 
PROLOG on the 32-bit VAX machine under the UNIX 


operating system In fact, PROLOG-86 allowed us to use 
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variable predicate names which facilitated our 
implementation. On  C-PROLOG we wrote additional 
routines (see "variable predicate" routine in the 
UTILITIES file in Appendix A). 

The total space requirement for the EMYCIN- 
PROLOG codes was 40288 bytes, and the knowledge-base 
of the CAR diagnosis and the FINANCE analysis systems 
required 16244 bytes. During the consultation the 
FINANCE analysis system space requirements in bytes 
were: atom space (38584), aux stack (612), trail 
(1200), heap (87728), global stack (8808), and local 
stack (10240). Runtime was 22.33 sec. The above space 
and time requirements of the EMYCIN-PROLOG 
consultation system provide a highly portable system 
since it is possible to run the system оп 
microcomputers with minor syntactical changes and 288 


Kbytes of memory. 


C. EVALUATION OF EMYCIN 
1. Generality Of EMYCIN 


EMYCIN imposes a data structure of 
(attribute, object, value) triples and these triples 
must be used in a backward-chaining control structure 
applied to production rules [9]. Even though EMYCIN 


can be applied to different domains of diagnosis 
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problems, another domain of design problem may not 
work properly because of above constraints. 
227 Some Particular Problems 

The context tree structure imposes the main 
restriction. Every node in the context tree leads to 
the root node by a single pathway. In real 
applications contexts in any domain are not 
partitioned so artificially. Any improper building of 
the static tree causes big troubles later in 
consultations, and it is a very costly process to go 
back to the start and rearrange the static tree. 

Contexts are instantiated only when needed. 
This brings considerable complexity of implementation. 
This property helps avoid acquiring information which 
is not needed for a particular consultation, but there 
may be domains where a set of contexts will always be 
needed at the beginning of a consultation, which makes 
the whole propagation method for the tree obsolete. 

Another restriction imposed is the 
requirement to include the parameter as the goal of 
consultation in the MAINPROPS list of the root node, 
since instantiating the root node initiates the 
reasoning chain for the consultation. 

Multivalued parameters cannot be used 
successfully in the function KNOWN since the function 


would succeed immediately after any one value were 
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known. On the contrary, multivalued parameters have 
more than one value, and the function KNOWN does not 
have a control to check all those other possible 
values of parameters before success. 

MAINPROPS parameters should be either 
singlevalued or yes_no parameter, since there is no 
specific value of maltivalued parameter defining 
whether parameter’s evaluation process is done or not, 
as in the case of known function explained in previous 


paragraph. 


Ds PROLOG AND EMYCIN-PROLOG 
EMYCIN-PROLOG possesses most of the properties of 
EMYCIN since the main conceptual and control structure 
is preserved, as explained in previous section. 
Contrary to above problems of EMYCIN in EMYCIN-PROLOG, 
PROLOG’s unification pattern-matching made deduction 
possible without any additional programming. This in 
turn increased the expressive power in the 
representation of factual knowledge and its 
manipulation. For example the hypothesis-retrieving 
process was easily performed using the unification 
property. 
PROLOG also succesfully facilitated 
implementation of  EMYCIN, especially in the data 


structures, rules (even though rules are not part of 
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EMYCIN, they are required for a working consultation 
system and thus was mentioned here), and hypothesis 
шетегепсе. 

Compared to Interlisp (the language in which 
EMYCIN was first implemented) PROLOG seems to bea 
better language for implementing EMYCIN. Especially 
during the rule execution phase, we did not need any 
aditional programming because of PROLOG’s built-in 
pattern-matching facility (see 
"try_all_rules_for_PAR(...)" routine in the source 


codes in the Appendix A). 


Ea EFFICIENCY OF EMYCIN-PROLOG 

The user interaction module of an expert system 
shell typically covers 30% of the whole programming 
effort. EMYCIN-PROLOG didn’t have a user interaction 
module, and in a usable product it should be 
implemented. Suggestions for this module are given in 
chapter IV. In addition to the user’ interaction 
module, the suggested explanation system (see chapter 
V) also should be implemented. Rather than having 
usable end product we were mostly concerned about 
making the inside of a shell visible. The benefits of 
this work are explained in the following section. 

Another alternative approach to the EMYCIN- 


PROLOG shell would be the decision-lattice shell [18]. 
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А decision-lattice shell is highly domain-dependent 
and it does not bring the advantages of EMYCIN-PROLOG 
as explained in the following section (i.e., EMYCIN- 
PROLOG prevents the same codes from being repeated and 
shortens the programming work considerably when 


building several expert systems). 


E THE BENEFITS OF OUR WORK 

Once a shell is provided, building a complete 
expert consultation system is much easier than 
starting from scratch and programming the whole expert 
system. During the building of the CAR diagnosis and 
FINANCE analysis systems the work mostly focused on 
the mapping of the domain knowledge into the rules 
rather than programming. 

EMYCIN-PROLOG performs better on diagnostic 
problems than nondiagnostic problems. Different 
domains can use EMYCIN-PROLOG for building a complete 
expert consultation system as long as they are 
diagnostic-type domains. The CAR diagnosis and FINANCE 
analysis systems were two such domains. Two different 
consultation systems were built for them using EMYCIN- 
PROLOG during our work. Without  EMYCIN-PROLOG we 
wouldn’t have been able to build them within our time 


constraints. 
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Besides the above advantage of using EMYCIN- 
PROLOG, we have demonstrated the phases of expert 
system programming. Once the structural requirements 
of EMYCIN are understood, the different phases of the 
building process can be seen easily (e.g., defining 
structural requirements, building a shell, building 
the knowledge-base, etc). 

Another advantage is that a reader can experiment 
with the code, since a complete list of the program 


code with the sample consultations is provided. 
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APPENDIX A 
SOURCE CODE 

This appendix contains a listing of the main 
program (held in the files ENGINE, FUNC, and 
распа е Ў 

EMYCIN-PROLOG is written in the version of the 
PROLOG language known as C-PROLOG and runs unde the 
UNIX operating system on VAX Machine. This version of 
PROLOG is closely based on standards as described in 
Clocksin and Mellish [190]. 

The knowledge engineer and consultor has no 
responsibility or relation to the writing of the codes 
which presented in this appendix. 

Having entered the PROLOG, program prints a 
short message about EMYCIN-PROLOG and then user starts 
the consultation with the query of "begin". 

The lines that limited with "*" are comment 
lines. They should not be confused with actual PROLOG 


codes. 
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% FOLLOWING LIST OF CODES ARE CONTENTS OF ENGINE 


FILE. 


f X*X*XXXxXxxxxxxXXXXXX MAIN PROGRAM ***XX*«x:xxxxxxxxxxx/ 


All asserted facts are cleaned from database 
(cleandatabase), nextnum and pasked properties of 
contexts are initialized (initialize nextnum pasked), 
and user is asked of name of the root context. Since 
root context is askable at start its askable property 
is set to "1" (initialize askable). Then root context 
is created and its MAINPROPS parameters are traced 
(create root and start consultation), once this 
routine succeeds then consultation ends. Following the 
consultation results are printed (print result) and 


also all concluded hypotheses in the dynamic database 


are printed (print dbase). 


/ Ж зе зе зе эе эе Зе ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ Эё Эё Эё Эё ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ Эё ЭЕ ЭЕ ЭЕ 3 / 


meen! snl, 

write(’ WELCOME TO EMYCIN-PROLOG CONSULTATION 
PROGRAM’ ),nl1, 

write(’ Please enter "begin" to start the 
consultation ’), 


mui nl,nl. 
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begin 
cleandatabase, 
assert(fact(not first run)), 
not(initialize nextnum pasked), 
АЛ, 
write(’Enter the name of the root context 
(CAR,LEASE) ’), write(’ ==>’),read( DOMAIN), 
not(initialize askable(nnil,1)), 
create root and start consultation(DOMAIN,N), 
print result, 


print dbase,!'. 


create root and start consultation(C,N) 
v func 2(C,assocwith,Cp), 
v func 2(Cp,nextnum,N2), Np is N2-«1, 


create and trace mainprops(Cp,Np,C,N). 


[RRR RK KKH HHH EVALUATE PARAMETER VALUE XXKXXKxxxxxxx/ 

This routine evaluates the value of a parameter. 
As explained in section II.B. there are two possible 
cases ; parameter’s value can be known by the user 
(can_ask = 1) or parameter’s value cannot be asked of 
user, in first case user is directly asked of the 


value of parameter, in latter case all rules about the 
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parameter are tried (try all rules for PAR). User can 
answer as "unk" if the data is not available at all. 
User’s answer is checked against the expected value of 
the parameter and if the value is unexpected one, user 
is warned and question is repeated. Evaluation of a 
parameter is done for aall instances of a context. 
Evaluation ends when all instances of the context is 
tried (nextnum = 0). 
f € HH EEEE EEE EEE EE EE E EE EE E E EE EE EEE EEEE EE 
еуа12(С,0,РАВ,УА,,СЕ) :- !. 
eval2(C,N,PAR,VAL,CF) 

v_func_2(PAR,can_ask,1), 

message askable(C,N,PAR), 

get the answer(VAL,CF),nl, 

v func 2(PAR,expect,EXPECT), 

check the answer(C,N,PAR,CF,VAL,EXPECT), 

VAL \== ’unk’, 

assert(hypothesis(PAR,C,N,VAL,CF)), 

assert(is_t(PAR,C,N,1)), 

Nn is N-1, 


eval2(C,Nn,PAR,VALn,CFn). 


eval2(C,N,PAR,VAL,CF) 


v func 2(PAR,can ask,1), 


TT 


write(’Unexpected answer !!! Please try 
again.’ )enl,nl, 


eval2(C,N,PAR,VAL,CF). 


message askable(C,N, PAR) 


v func 2(PAR,prompt,PROMPT), 
write(C),write(’-’),write(N),nl, 


PROMPT,!. 


eval2(C,N,PAR,VAL,CF) 


not(try all rules for PAR(PAR,C,N,VAL,CFrule)), 
assert(is t(PAR,C,N,1)), 
Nn is N-1, 


eval2(C,Nn,PAR,VALn,CFn). 


/ з= Же зе зе ЗЕ ЭЄ эе эе эе Зе ЭЕ з TRY ALL RULES FOR PAR X Зе ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ / 

All rules which mentions particular parameter in 
their head part are tried. The parameter is passed in 
last eval2 routine. If the parameter is singlevalued 
or yes_no parameter and there is a hypothesis with 
certainity (CF = 1) then execution of rules is 


stopped. (!,fail) combination stops the execution. 


[| HH HH E E E E HE HEHE X NXN X X X NXN X NNM X X NN NMM XN NNN / 
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try all rules for PAR(PAR,C,N,VAL,CFrule) 


(v func 2(PAR,valutype,singlevalued); 
v func 2(PAR,valutype,yes no)), 


hypothesis(PAR,C,N,VAL,1),!,fail. 


try all rules for PAR(PAR,C,N,VAL,CFrule) 


v func 4(PAR,C,N,VAL,CFrule),fail. 


f[****Xxxxxx эё FIND APPLICABLE CONTEXT © ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ € / 

At any time of the consultation if the current 
context is not applicable then this routine finds the 
applicable one. First parent context is checked then 
descendant contexts and finally brother contexts are 


tried. If there is not any applicable context in the 


dynamic tree then Tut is created 
(create by traversing). Last argument in 


"create by traversing" routine is used to keep track 
of the context which traversing has been started. 
After creation process is done then 
"descendant or brother" routine finds this applicable 
context. 


/ з= ЗЕ Зе эе эе эе ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ ЭЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ / 
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find applicable context(C,N,PAR,Cap,Nap) 


parent test(C,N,PAR,Cap,Nap). 


find applicable context(C,N,PAR,Cap,Nap) 


descendant test(C,N,PAR,Cap,Nap). 


find applicable context(C,N,PAR,Cap,Nap) 


brother test(C,N,PAR,Cap,Nap). 


find applicable context(C,N,PAR,Cap,Nap) 


create by traversing(C,N,PAR,C), 
descendant or brother(C,N,PAR,Cap,Nap). 
/ ж зе эе зе эе эе Зе ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ жж ыж PARENT TEST  **s*s*sxxxxxxxxx/ 
parent test(C,N,PAR,Cp,Np) 

v func 5(C,Cp,Np,C,N,tree), 


cntxt applicable(Cp,PAR). 


parent test(C,N,PAR,Cp,Np) 


v_func_5(C,Cp,Np,C,N,tree), 


Cp == nnil,!,fail. 
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parent test(C,N,PAR,Cp,Np) 
v func 5(C,Cp,Np,C,N,tree), 
not(cntxt applicable(Cp,PAR)), 


parent test(Cp,Np,PAR,Cpp,Npp). 


f XX XXXXYX*XXXXXEXXXXXXK DESCENDANT TEST 3 ЭЄ ЭЄ ЭЄ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ ЭЕ ЭЕ / 
descendant test(C,N,PAR,Cd,Nd) 

v func, 2(C,offspring,Cd), 

v func, 5(Cd,C,Ng,Cd,Nd,tree), 


cntxt applicable(Cd,PAR). 


descendant test(C,N,PAR,Cd,Nd) 


v func 2(C,offspring,Cd), 
v func 5(Cd,C,Ng,Cd,Nd,tree), 
not(cntxt applicable(Cd,PAR)), 


descendant test(Cd,Nd,PAR,Cdd,Ndd). 


descendant test(C,N,PAR,Cd,Nd) 


v func 2(C,offspring,Cd), 


not(v func 5(Cd,C,N,Cd,Nd,tree)),',fail. 
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[HR KK BROTHER TEST  *x*xxxxxxxxxxxx/ 


brother test(C,N,PAR,Cb,Nb) 


v func 5(C,Cp,Np,C,N,tree), 
v func 2(Cp,offspring,Cb), 
Cb A22 C, 
cntxt applicable(Cb,PAR), 
v func 5(Cb,Cp,Na,Cb,Nb,tree). 
/ ж е е зе ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЭЕ ЗЕ ЭЕ ЗЕ ЭЕ ЭЕ ЗЕ ЗЕ ЭЕ е + DESCENDANT OR BROTHER HHH KKH / 


descendant or brother(C,N,PAR,Cdb,Ndb) 


descendant test(C,N,PAR,Cdb,Ndb); 


brother test(C,N,PAR,Cdb,Ndb). 


/ жж ж зе эе зе зе ЗЕ ЭЕ ЗЕ ЗЕ ЗЕ CONTEXT CREATION ROUTINES X XXX X*xxxxx/ 
In following routines, first applicable context 
is found then it is created and its MAINPROPS 


parameters are traced (create and trace). "Cx" in the 


"create by traversing" routine is needed to keep track 


of the context which traverse began. Traversing will 
stop when Cx is reached on the way back. If 
create applicable cntxt did not create any context 


(PROMPT2=NO) at any point then trace back continues 
back from the current context (C,N) which doesn't have 


any other instance i.e., prompt2 for "C" is no. 


/ ж ж же зе зе Зе Зе ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЕЕ / 


82 


create by traversing(C,N,PAR,Cx) 


create applicable cntxt(C,N,Cc,Nc,PAR), 


trace back(Cc,Nc,Cx,PAR). 


create applicable cntxt(C,N,C,N,PAR) 


fact(context is not created), 


retractall(fact(context is not created)). 


create applicable cntxt(C,N,Cb,Nb,PAR) 


v func 2(C,assocwith,Cp), 

v func 2(Cp,offspring,Cb), 

Cb \== C, 

cntxt applicable(Cb, PAR), 
not(v_func_5(Cb,Ca,Na,Cb,Nb,tree)), 
v func 2(Cp,nextnum,Np), 


create and trace mainprops(Cp,Np,Cb,Nb). 


ð AHAAA адал далада далада ааа да дал аа далала да да а а / 


Go down by creating intermediate contexes until 
the applicable context is hit then create all other 
occurrences of applicable context with 
"create and trace mainprops" routine. If context is 


not applicable to PAR, another context "Cc" is tried 
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by backtracking to C(offspring,Cc). 


[HHH HHH HHH HHH HHH HH HH HHH HHH HHH MM / 


create applicable cntxt(C,N,Cc,Nc, PAR) 
v_func_2(C,offspring,Cc), 
not(v func 5(Cc,C,N,Cc,Nc,tree)), 
cntxt applicable(Cc,PAR), 


create and trace mainprops(C,N,Cc,Nc). 


/ = жэ э Зе ЗЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ / 


Context is not applicable then create it as an 
intermediate context and continue recursively. 


[HH HH HHH HH HH HH HH HHH HH HHH HH HH HHH HHH HHH / 


create applicable cntxt(C,N,Cc,Nc, PAR) 


v_func 2(C,offspring,Cs), 

not(v func 5(Cs,C,N,Cs,Ns,tree)), 
not(cntxt applicable(Cs,PAR)), 
create cntxt(C,N,Cs,Ns), 


create applicable cntxt(Cs,Ns,Cc,Nc,PAR). 


create applicable cntxt(C,N,Cc,Nc,PAR) 


v func 2(C,offspring,Cs), 
v func 5(Cs,C,N,Cs,Ns,tree), 


create applicable cntxt(Cs,Ns,Cc,Nc,PAR). 
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create and trace mainprops(C,N,Cc,Nc) 


v func 2(Cc,pasked,90), 
create cntxt(C,N,Cc,Nc), 


create cntxt2(C,N,Cc,Nc). 


f X X X X X Xxx Xxx 0 € (C кк кк / 


IMPORTANT NOTE !!! create and trace mainproprops 
is called when applicable context is found. ТЕ 
applicable context was not created yet and if answer 
to the prompt to create context is NO then PAR cannot 
be evaluated without creating the applicable 
context.In this case either user asked for PAR value 
or ERROR message is sent. "Cc" which is applicable 
context has its instance in context tree, which 
Cc(pasked,1). "Create cntxt2" routine asks for another 
instances with PROMPT2. 

/ € X X зе зе Зе ЭЕ ЭЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ ЭЕ ЭЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ ЭЕ ЭЕ ЗЕ ЗЕ ЭЕ ЭЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ ЗЕ ЭЕ ЭЕ ЗЕ ЗЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ / 
create and trace mainprops(C,N,Cc,Nc) 


create cntxt2(C,N,Cc,Nc). 


create cntxt(C,N,Cc,Nc) 


v func 2(Cc,pasked,9), 


create prompt2(C,N,Cc,Nc). 
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create cntxt(C,N,Cc,Nc) 


v func 2(Сс,равКей,0), 


create prompt1(C,N,Cc,Nc). 


/ Ж Зе ЗЕ Зе ЗЕ ЗЕ ЗЕ ЗЕ ЭЕ ЗЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ / 


Answer to PROMPT! is "no". "Askable" property is 
used in "trace back" routine. 
f XX зе эе эе ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ / 
create cntxt(C,N,Cc,Nc) 
v func 2(Cc,pasked,0), 
assert(fact(context is not created)), 


update askable(Cc,C,N,askable,0). 


create cntxt(C,N,Cc,Nc) 
v func 2(Coc,pasked,1), 
v func 2(Cc,C,N,askable,1), 


prompt 2(Cc,Nc). 


/ X XX X X X Xx x X X X ) O) ЗЕ ЭЕ ЗЕ ЭЕ ЗЕ ЭЕ ЗЕ ЭЕ ЗЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЗЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЗЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ / 


Answer to PROMPT2 is "no". 


/ зе зе Зе эе ЭЄ ЗЕ ЗЕ ЗЕ ЗЕ ЭЕ ЗЕ ЭЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ / 
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create cntxt(C,N,Cc,Nc) 


assert(fact(context_is not created)), 


update askable(Cc,C,N,askable,0). 


create prompt2(C,N,Cc,Nc) 


v func 2(Cc,prompt5,PROMPT;), 
write(PROMPT3), 
create and trace(C,N,Cc,Nc), 


update num(Cc,pasked,1). 


create prompt1(C,N,Cc,Nc) 


v func 2(Cc,prompti,PROMPT1!), 
write(PROMPT!),write('* ==>’), read(Ans), !, 
affirmative(Ans), 

create and trace(C,N,Cc,Nc), 


update num(Cc,pasked,1). 


prompt 2(C,N) 
v func 2(C,prompt2,PROMPT2), 
write(PROMPT2),write(" ==>’), read(Ans), !, 


affirmative(Ans),nl, 


v_func_2(C,assocwith,Cp), 
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v func 2(Cp,nextnum,Np), 


create and trace(Cp,Np,C,N). 


create prompt2(C,N) 


v func 5(C,Cp,Np,C,N,tree),N1i is N+1, 

v func 2(C,prompt2,PROMPT2), 

write(PROMPT2),write(’ == y> y 
read(Ans),!,affirmative(Ans),nl, 

create and trace(Cp,Np,C,N1),!, 


create prompt2(C,N1). 


/ же зе зе зе эе эе ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ / 


"Cc,Nc" is the context to be created. 


/ ж зе эе эе НИ ХН ХН НА НЕ НЕ НО ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ / 


create cntxt2(C,N,Cc,Nc) :- create prompt2(Cc,Nc). 


/ эе ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЗЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ ЭЕ ЭЕ эе ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ / 


Answer to PROMPT2=NO. 


f XX X ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЗЕ ЭЕ ЭЕ ЗЕ ЭЕ ЗЕ ЭЕ ЗЕ ЗЕ ЗЕ ЭЕ ЗЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ / 
create cntxt2(C,N,Cc,Nc) :- 


update askable(Cc,C,N,askable,@). 


create and trace(C,N,Cc,Nc) 


v func 2(Cc,nextnum,Nn),Nc is Nn + 1, 
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update num(Cc,nextnum,Nc), 

add 5(Cc,C,N,Cc,Nc,tree),n1l,nl, 

write(’----’), 
write(Cc),write(’-’),write(Nc),write(’----’),nl,nl, 

not(initialize askable(Cc,Nc)), 


lookmainprops(Co,Nc). 


lookmainprops(C,N) 
v func 2(C,mainprops,MAINPROPS), 


eval par(C,MAINPROPS,N). 


eval par(C,[],N). 


eval par(C,[PAR!REST],N) 


cntxt applicable(C,PAR), 
eval2(C,N,PAR,VAL,CF), 


eval par(C,REST,N). 


eval par(C,[PAR!REST],N) 
not(cntxt applicable(C,PAR)), 

find applicable context(C,N,PAR,Cap,Nap), 
eval2(Cap,Nap,PAR,VAL,CF), 


eval par(C,REST,N). 
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| HR HH HH HH EH TRACE BACK HOHE HH / 

Once the applicable context is found then all 
intermediate contexts between this context and the 
context which traversing started ("Cx") are tried 
whether any of them has any other descendant context 
to be created. 

"C" and "Cx" are brother  contexts.There is no 
need for trace back. 


[HH HEHE HEHE TEE HEHEHE HEHE HEE HE TE HEHE EE HE / 


trace back(C,N,Cx, PAR) 


v_fune 2(C,assocwith,€p), 


v func 2(Cp, offspring, Cx). 


f HH / 


"Cp" is parent context of "С" апа "Срр" о: PEL 
"Cpp" is needed to find askable property of "Cp". ІЁ 
"create cntxt routine did not creat context 
(PROMPT2-NO), then "create applicable cntxt" returns 
(Ck,Nk-Cp,Nc) and trace back continues back from 
Cp,Nc. 

/ УА КЖ / 


trace back(C,N,Cx, PAR) 


v_func 5(С,Ср,Мр,Сс,М/ тесе 


Cp == c 
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v_func_5(Cp,Cpp,Npp,Cp,Np,tree), 
v_func_4(Cp,Cpp,Npp,askable,1), 

create cntxt(Cpp,Npp,Cp,Nc), 

create applicable cntxt(Cp,Nc,Ck,Nk,PAR), 


trace back(Ck,Nk,Cx,PAR). 


trace back(C,N,Cx,PAR) 
v func 5(C,Cp,Np,C,N,tree), 
Cp \== Cx, 
v_func_5(Cp,Cpp,Npp,Cp,Np,tree), 
v func 4(Cp,Cpp,Npp,askable,9), 


trace back(Cp,Np,Cx,PAR). 


trace back(C,N,Cx,PAR) 
v func 2(C,assocwith,Cp), 


Cp == Cx. 


/******* COMBINE CERTAINTY AND CONCLUDE  ***xxxxxxxx/ 

A hypothesis is asserted into dynamic database. 
During the assertion process database is checked if 
there is any aother hypothesis which concludes the 
same value for "PAR"; if there is then two 
hypothesis’s certainty values are conbined using 


"combine_func" routine and new hypothesis with new CF 
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value is asserted into database. 


/ =з зе эе эе ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ / 


conclude(C,N, PAR, VALUE,CFrule,CFmm ) 
CF is CFrule * CFmn, 


certainity_combine(C,N,PAR,VALUE,CF),!. 


certainity_combine(C,N, PAR, VALUE, CFnew) 
hypothesis(PAR,C,N,VALUE,CFold), 
combine func(CFold,CFnew,CF), 
retract(hypothesis(PAR,C,N,VALUE,CFold)), 


assert(hypothesis(PAR,C,N,VALUE,CF)). 


/ ж зэ эе эе эе ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ / 


If PAR value is concluded for the first time 
then there would not be any concluded value in the 
database. 


J эе зе ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЗЕ / 


certainity_combine(C,N, PAR, VALUE,CFnew) 


not(hypothesis(PAR,C,N,VALUE,CFold)), 


assert(hypothesis(PAR,C,N,VALUE,CFnew)). 


g2 


f EX зе эе ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ / 


There are three functions to combine certainty 


values: 
CFcomb = CFold + CFnew * (1 - CFold) 
CFcomb = (CFold + CFnew)/(1 - min(CFold,CFnew) ) 
CFcomb = -(- CFold - CFnew * (1 + CFold)) 


f X XXX X* эе ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ ЗЕ ЭЁ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ HH W / 


combine func(CFold,CFnew,CF) 
Скоја > 2, 
СЕпем > 0, 


CF is CFold + CFnew*(1 – СЕо4). 


combine func(CFold,CFnew,CF) 
CFmult is CFold*CFnew, 
CFmult < Ø, 
min([CFold,CFnew],CFmin), 


CF is (CFold + CFnew)/(1 - CFmin). 


combine func(CFold,CFnew,CF) 


CFold « 0, 
CFnew « @, 


CF is -1*(-CFold - CFnew*(1 + CFold)). 
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/ HE W CLEANDATABASE X NX N N N NNN N NNN K / 

The following facts are asserted into the 
database during the consultation 

hypothesis(PAR,C,N,VAL,CF) 

The evaluated value of parameter "PAR". 

fact(context is not created) 

The Warning flag showing that after a call to 
the "create cntxt" routine no context is 
created.Answer to PROMPT!/PROMPT2 is NO. 

fact(not first run) 

A flag to cleandatabase routine. If this fact is 
in the database then database is cleaned. 

Cc(C,N,Cc,Nc, tree) 

A new context is added into context tree. 

Cc(C,N,askable,Num) 

An askable property ; context "C,N" has no other 
context Co descendant to it. 

C(nextnum,N ) 

The context "C" has "N" instances created so far. 

С (разкеа , Мам ) 

The number (Num) for the context "C" is "1", if 
context is created via PROMPT1 or PROMPT3, otherwise 


"0". Before PROMPT2 is asked this flag is checked 


first. 
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Above facts are retracted from database before 
consultation starts by using "cleandatabase" routine. 


f X * XXX xXx xxx / 


cleandatabase 
fact(not_first_run), 
abolish(hypothesis,5), 
abolish(concluded PAR for C N,5), 
abolish(applicable descendant,5), 
abolish(fact,1), 
abolish(descendant,1), 
abolish(is t,4), 
not(clean1), 
not(clean2), 
not(clean3), 


not(clean4). 


cleandatabase. 


cleant1 


context(Cc), 


delete 5(Cc,C,N,Cc,Nc,tree),fail. 
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clean2 
context(C), 


delete 2(C,nextnum,N),fail. 


clean3 
context(Cc), 


delete 4(Cc,C,N,askable,K),fail. 


clean4 


context(C), 

delete 2(C,pasked,N),fail. 

/ хжжихиииинихниихи OUTPUT ROUTINES HK / 
Goal parameter is found and all hypotheses which 
concludes about this parameter are printed. After the 
goal parameter, all other hypotheses in the database 
are printed. 


J Y YW NN N NN N NN NXN XX XX X X X X X X X X X X X X X X X X X X NX X N N N X N NN эе эе 36 / 


print_result 


goal(PROBLEM), 
v func 2(PROBLEM,trans,TRANS),nl,nl,nl, 
write(TRANS),nl, 


not(print conclusion(PROBLEM)). 
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print conclusion( PROBLEM) 
hypothesis(PROBLEM,C,N,VALUE,CF), 
write(VALUE),nl, 
write('with the certainity : A 


write(CF),nl,nl,fail. 


print dbase 


nt nin, 
write(’ ------- CONCLUSIONS MADE DURING ’), 
write('THE CONSULTATION  ----------- а: 


nl,nl,not(write all concluded values). 


write all concluded values 


write('parameter / value / ’), 


write('certainity / context instance'),nl, 


write all concluded values2. 


write all concluded values2 


hypothesis(PAR,C,N,VALUE,CF), 
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write(PAR), write(’ --- ’), write(VALUE), 
write(’---’),write(CF), 


write(’--- ’),write(C),write(’--’),write(N),nl,fail. 


f[***XXXxxxxxxx PROCESSING THE USER INPUT жж же зе зе зе зе эе / 

User’s answer for any data request by the system 

is checked against expected value of the parameter. If 

the answer is unexpected then user is warned and the 
question is repeated. 


/ ж зе зе зе Зе зе Зе Зе ЗЕ ЗЕ ЭЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЗЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЗЕ ЭЕ ЗЕ ЗЕ ЭЕ ЭЕ ЗЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ Зе / 


get the answer(VAL,CF) 


read(STRING), 

name(STRING,LIST), 
parse(LIST,VALUE,CERTAINITY,LIST), 
name(VAL,VALUE), 


name(CF,CERTAINITY). 


f X X X X Зе Зе ЗЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЗЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ / 


95 is ascii code for underscore "_" 


f XX XX X € CC ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ ЗЕ ЭЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ / 


parse([X!REST],VALUE,CERTAINITY,LIST) 


X == 95, 


parse(REST,VALUE,CERTAINITY,LIST). 
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parse([X!REST],VALUE,REST, LIST) 


seperate val(LIST,VALUE). 


f X XXX Xx Xxx xxx xXx ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЁ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ / 


49 is ascii code for "1" which corresponds to the 
default value for CF. Default value 1 is used when 
user did not specified any certainty of his/her answer 
explicitly. 
/ ж зе э эе ЭЕ эе ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ / 
parse([],LIST,[49],LIST). 


seperate val([X!L1],[1]) 


„== 95. 


seperate val([X!L1], [X!L3]) 


X M 95, 


seperate val(L1,L5). 
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% FOLLOWING LIST OF CODES ARE CONTENTS OF FUNC FILE 
и EEN EN VP PUNU BILE 


/[***X******** PREMISE EVALUATION ROUTINES xxx xx xxx / 

First all asserted facts during the execution of previous 
"eval premise" routine are retracted. Evaluation process is 
done in two stages ; first database is updated i.e., 
parameters value is evaluated using "eval2" routine then 
related hypothesis is retrieved using "retrieve hypothesis". 
routine. The variables used in the argument lists of 
routines and their explanations are : 

L=[VAL1,VAL2,....,VALn] list of values determined by the 
rule writer 

Lcommon-[[VAL1,CF1],[VAL2,CF2],...., [VALn,CFn]] : 
intersection of evaluated values and values specified 
in the rule. Lcommon = intersection[V, LST] 
У : set of all hypothesis about PAR. 

LST : the possible values of PAR given by rule 
author. "L" usually contains only a single element,if 
L=[] then Lcommon also equal to [XE 

When "eval premise" fails, then the rule also 
fails and control goes back to “try all rules for PARU 
routine. Note that  "PAR,C,N" is the key, same PAR 
might have different "concluded PAR for C N" values 


for different (C,N) pairs. 


[[ PE IE IE DE DE IE IE эе эе э ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭР ЭК ЭЕ эе у 
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eval premise(FUNC,PAR,C,N,L,CF) 


retractall(concluded PAR for _ C_N(PAR,C,N,VAL,CFm)),!, 
retractall(applicable descendant(C,N,PAR,Ca,Na)). 


eval premise2(FUNC,PAR,C,N,L,CF),!. 


f * X X / 


IMPORTANT ! 
THE CUT (!) OPERATOR PREVENTS BACKTRACKING AND GIVES 
THE CONTROL TO THE RULES. IF EVAL PREMISES FAILS WE 
WANT EVAL PREMISE TO BE FAILED AND GIVE CONTROL BACK 
TO THE RULES SO THAT SOME OTHER RULE WILL BE TRIED 


/ жазы / 


eval _ premise2(FUNC,PAR,C,N,L,CF) 


cntxt applicable(C,PAR),!, 


eval_premise3(FUNC,PAR,C,N,L,CF). 


/ Ж зе зе эе эе ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ Эё ЭЕ ЭЕ ЭЕ ЭЕ Эё ЭЕ Эё ЭЕ ЭЕ Эё ЭЕ ЭЕ ЭЕ Эё ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ Эё ЭЕ ЭЕ ЭЕ / 


The tree pointer is bound to its correct value 
before "eval premise5" ROUTINE is called. 


[HE HE зе YNNN NNN NXN KK / 


eval premise2(FUNC,PAR,C,N,L,CF) 


not(cntxt applicable(C,PAR)), 


find applicable context(C,N,PAR,Cap,Nap),'!, 
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eval premise3(FUNC,PAR,Cap,Nap,L,CF). 


f X зе ЗЕ ЭЕ эе / 


CFe is different than CF since commonlist chooses 
desired ones from all evaluated values of PAR. PAR 
value is evaluated first by "eval2" routine if either 
"is traced" flag is "Ø" or PAR is multivalued. "is 
traced" flag is ignored if PAR is multivalued. "cut" 
(!) operator is used to prevent backtracking inside 
the eval2. If еуа12 could not conclude a value 
( "unknown" answer from user), then eval2 will return 
reasonable value, in this case we want eval premise3, 
eval premise2 and eventually  eval premise to be 
failed. 

/ =з эе эе эе ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ / 
eval _premise3( FUNC, PAR,C,N,L,CForTRUE) 
(not(is t(PAR,C,N,1)); 
v func 2(PAR,valutype,multivalued)), 
eval2(C,N,PAR,VAL,CFe),!, 


retrieve hypothesis(PAR,C,N,L,FUNC,CFOorTRUE). 


eval premise5(FUNC,PAR,C,N,L,CForTRUE) 


is t(PAR,C,N,1), !, 


retrieve hypothesis(PAR,C,N,L,FUNC,CForTRUE). 
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retrieve hypothesis(PAR,C,N,L,FUNC, true) 


member(FUNC,[greaterp,greateq,lessp,lesseq]), 


v func 5(FUNC,PAR,C,N,L,true). 


retrieve hypothesis(PAR,C,N,L,FUNC,CF) 


not(member(FUNC,[greaterp,greateq,lessp,lesseq]l)), 
commonlist(PAR,C,N,L,Lcommon),!, 


v func 5(FUNC,PAR,C,N,Lcommon,CF). 


[HHH HHH HHH FUNCTIONS IN RULE PREMISE HHH HHH HHH / 
Two main types of functions can be named as "funci" 
and "func2" where : 

«func!» : Does not form conditionals on specific 
values of a parameter. 

<func2> : Controls conditional statements regarding 
specific values of the parameter in question. 

As defined above unlike the «func!» 
predicates, <func2> predicates control conditional 
statements regarding specific values of the parameter 
in the question.These specific values are passed by 
the argument "L" іп eval_premise routine."L" is the 
list of values to be compared with to evaluate the 


function "FUNC". Evaluation of premise includes some 


simple functions. 
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Functions KNOWN,NOTKNOWN,DEFINITE and NOTDEFINITE 
are concerned not with the actual value of a 
parameter,but with whether or not it is known. 

Functions SAME,THOUGHNOT both either fail or 
return a numerical value signifying "true". 

Functions NOTSAME, MIGHTBE, VNOTKNOWN, DEFIS, 
NOTDEFIS, DEFNOT and NOTDEFNOT are all concerned with 
the certainity factor with which the value ofa 
parameter is known to be true andall return truth 
values.The empty list "[]" passed by  commonlist 
routine in the first clause  "FUNC(PAR,C,N,[],FALSE)" 
implies that PAR does not have any value which 
included in the value(s) list, defined by the rule 
author in the rule premise, then the premise clause 
which mentions this FUNC fails by returning value 
"false". 

Functions GREATERP,LESSP,GREATEQ and  LESSEQ are 
applied to those parameters which have a numerical 
value and which return a truth  value.These are called 
numerical functions. Functions $AND and $OR of EMYCIN 
are changed to MIN and MAX functions. Either of them 
is added after premises in each rule if the premises 
are to be ANDed or ORed. 


[He HHH HEE NN N N N X IE IE IE IE IE HE HEE HE ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ / 


104 


same(PAR,C,N,L,CF) 


get most strongly confirmed hyp(L,VAL,CF), 


CF > 0.2. 


notsame(PAR,C,N,[],false). 
notsame(PAR,C,N,L,true) 


get_most_strongly_confirmed_hyp(L,VAL,CF), 


CF =< @.2. 


notsame(PAR,C,N,L,false). 


mightbe(PAR,C,N,[],faise). 


mightbe(PAR,C,N,L,true) 


get most strongly confirmed hyp(L,VAL,CF), 


CF ? сы 0.2. 
mightbe(PAR,C,N,L,false). 
thoughnot(PAR,C,N,L,CF) 


CF < жй 0.2. 


vnotknown(PAR,C,N,[],false). 
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vnotknown(PAR,C,N,L,true) 
get most strongly confirmed hyp(L,VALs,CFs), 
absolute value(CF,CFabs), 


CFabs =< 0.2. 


vnotknown(PAR,C,N,L,false). 


defis(PAR,C,N,[]l,false). 
defis(PAR,C,N,L,true) 
get most strongly confirmed hyp(L,VAL,CF), 
CF = 1. 


defis(PAR,C,N,L,false). 


notdefis(PAR,C,N,[],false). 


notdefis(PAR,C,N,L,true) 


get most strongly confirmed hyp(L,VAL1,CF), 


СЕ > 072, СЕТ. 


notdefis(PAR,C,N,L,false). 


defnot(PAR,C,N,[l,false). 
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defnot(PAR,C,N,L,true) 


get most strongly confirmed hyp(L,VAL,CF), 


CF = — 1 ° 


defnot(PAR,C,N,L,false). 


notdefnot(PAR,C,N,[],false). 


notdefnot(PAR,C,N,L,true) 


get most strongly confirmed hyp(L,VALs,CF), 


UP xis CEIXL 


notdefnot(PAR,C,N,L,false). 


known(PAR,C,N,L,true) 


v func 2(PAR,valutype,yes no), 
get most strongly confirmed hyp(L,VAL,CF), 
absolute value(CF,CFabs), 


CFabs » 0.2. 


known(PAR,C,N,L,true) 


get most strongly confirmed hyp(L,VAL,CF), 


CF » 0.2. 


197 


known(PAR,C,N,L,false). 


notknown(PAR,C,N,L,true) 


v func 2(PAR,valutype,yes no), 
get most strongly confirmed hyp(L,VAL,CF), 
absolute value(CF,CFabs), 


CFabs =< 0.2. 


notknown(PAR,C,N,L,true) 


get most strongly confirmed hyp(L,VAL,CF), 


CF =< 0.2. 


notknown(PAR,C,N,L,false). 


definite(PAR,C,N,L,true) 


v func 2(PAR,valutype,yes no), 
get most strongly confirmed hyp(L,VAL,CF), 
absolute value(CF,CFabs), 


CFabs = 1. 


definite(PAR,C,N,L,true) 


get most strongly confirmed hyp(L,VAL,CF), 
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definite(PAR,C,N,L,false). 


notdefinite(PAR,C,N,L,true) 


get most strongly confirmed hyp(L,VAL1,CF), 


cr Gary СЕ Oo 


notdefinite(PAR,C,N,L,true) 


get most strongly confirmed hyp(L,VAL1,CF1), 


CFl « 1. 


notdefinite(PAR,C,N,L,false). 


/ = зе зе Зе ЭЕ эе ЗЕ ЗЕ ЗЕ ЭЕ ЗЕ ЗЕ NUMERICAL FUNCTIONS HHH HH HHH HHH HH / 
Numerical functions return "true" if the value of 

"VALx" is known with a CF >= 0.2 and is  greater/ 
greater or equal/ less/ less or equal than the [Value] 
specified. 
f X Xx X X x ЗЕ Эб ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЗЕ TE HEHEHE HEHEHE EEE / 
greaterp(PAR,C,N,[Value],true) :- 

eval num val(PAR,C,N,Value,greaterp). 
greateq(PAR,C,N,[Value],true) :- 

eval num val(PAR,C,N,Value,greateq). 
lessp(PAR,C,N,[Value],true) :- 


eval num val(PAR,C,N,Value,lessp). 
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lesseq(PAR,C,N,[Value],true) :- 


eval num val(PAR,C,N,Value,lesseq). 


eval num val(PAR,C,N,Value,FUNC) 


find appl cntxt for C N(C,N,PAR), 


bagof(CF,concluded PAR for C N(PAR,Cx,Nx,VAL,CF),L), 
min(L,X),X » 0.2, 
concluded PAR for C N(PAR,C,N,VALx,X), 


satisfied(FUNC,Value,VALx). 


satisfied(greaterp,Value,VALx) :- VALx » Value. 
satisfied(greateq,Value,VALx) :- VALx »- Value. 
satisfied(lessp,Value,VALx) :- VALx « Value. 


satisfied(lesseq,Value,VALx) :- VALx -« Value. 


/*******«**«* GET MOST STRONGLY CONFIRMED HYP ******/ 

Г is list of VAL,CF pairs. "get_most_strongly_ 
confirmed_hyp" routine returns to VAL,CF pair which CF 
is largest value of list L. 


f XXX ЗЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ / 


get most strongly confirmed hyp([[VAL,CF]],VAL,CF). 


get most strongly confirmed hyp(L,VAL,CF) 


е 


member([X,CF1],L), 
member2([X,CF1],L,[Y,CF2]), 

((CF1 =< CF2,delete([X,CF1],L,L1))3 
(CF2 =< CF1,delete([Y,CF2],L,L1))), 


get most strongly confirmed hyp(L1,VAL,CF). 


% FOLLOWING LIST OF CODES ARE CONTENTS OF UTILITIES 
FILE 


[***xxxxxxxxxxxx INITIALIZATION ROUTINES X эе Зе X ЗЕ ЭЕ ЗЕ ЗЕ ЗЕ / 
Three properties of a context are dynamically 
stored in database. These properties are : askable, 
nextnum, and pasked. They are initialized to "Ø" at 
the beginning of a consultation. 
Context might have more than one spring. 
f XXX / 
initialize askable(C,N) 


v func 2(C,offspring,Cc), 


add 4(Cc,C,N,askable,1),fail. 


initialize nextnum pasked 


context(C), 
add 2(C,nextnum,0), 


add 2(C,pasked,0),fail. 


update askable(C,Cp,Np,askable,Num) 


delete 4(C,Cp,Np,askable,N), 


add 4(C,Cp,Np,askable,Num). 


update num(C,XX,N) 


delete 2(C,XX,N1), 


add 2(C,XX,N). 


cntxt_applicable(CNTXT,PAR) 


v func 2(CNTXT,parmgroup,PT), 


v func 2(PAR,memberof,P categ), 


/[*****xxxxxx VARIABLE PREDICATE ROUTINES  ***x*xx*xxx*xx*x/ 
some of the predicate names are bound to their 

values dynamically during the cansultation, following 

routines make their use possible with  PROLOG's built- 

in "=..." and "call" functions. 

АЕЛИТА E E E E E E E E E E E E E E E E E E E E E E E E E E E E HHH / 


add 2(A,B,C) 


Z-..[A,B,C], 


assert(Z). 


add_4(A,B,C,D,E) 


Z-..[A,B,C,D,E], 


assert(Z). 


add 5(A,B,C,D,E,F) 


Иа ПАВ. С. Р.В. В 


assert(Z). 


delete 2(A,B;C) 


=. ТА, Вус сато 


retract(Z). 


delete 4(A,B,C,D,E) 


Z=..[A,B,C,D,E],ca1l1(Z), 


retract(Z). 


delete 5(A,B,C,D,E,F) 


“==. [А B.C D; E;F] call 2); 


retract(Z). 


v_func_1(PRED,VAR1) 


Z-..[PRED,VAR1],ca11(Z). 


v_func_2( PRED, VAR1,VAR2 ) 


Z-..[PRED,VAR1,VAR2],ca11(Z). 


v func A4(PRED,VAR1,VAR2,VAR?5,VAR4) 


Z-..[PRED,VAR1,VAR2,VAR5,VAR4],cal1(Z). 


v_func_5(PRED,VAR1,VAR2,VAR3,VAR4, VARS ) 


Z-..[PRED,VAR1,VAR2,VAR5,VAR4,VAR5],ca11(Z). 


retractall(CLAUSE) 


(CLAUSE -.. [PRED,A,B,C,D,E] ; CLAUSE =.. 


[PRED,A]), 


not(retractall2(PRED)). 


retractall2(PRED) 


(Z -.. [PRED,A,B,C,D,E] 2 2 -.. [PRED,A]), 


retract(Z),fail. 


ancestor descendant(C,N,C,N). 
ancestor descendant(C,N,Cx,Nx) 


v func, 5b(Cx,C,N,Cx,Nx,tree). 


ancestor descendant(C,N,Cx,Nx) 


v func 5(Cs,Cs,Ns,C,N,tree), 


ancestor descendant(Cs,Ns,Cx,Nx). 


[RR HHH HH HH HH HH CHECKING USER'S RESPONSE X N N / 

User’s response for a data request is checked 
against expected value of a parameter. There are three 
possible expected values : a number, yes or no and any 
value. 


f XX эе эе ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЁ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ / 


check the answer(C,N,PAR,CF,VAL, EXPECT ) 


EXPECT == ’number’, 


number(VAL). 


check the answer(C,N,PAR,CF,VAL,EXPECT) 


EXPECT == 'yes по”, 


member(VAL,[yes,no]). 


check the answer(C,N,PAR,CF,VAL,EXPECT) 


EXPECT == ’any’. 


Г жже LOCATING HYPOTHESES IN THE DATABASE ***/ 
"Commonlist" routine returns list of "VAL,CF" 

pairs where they satisfy specified values in the 
"eval premise" routine. "find appl cntxt for C N" 
routine finds all hypotheses in the database which 
concludes a value for "PAR" and stores them as facts 
in the form; "conclude PAR for C N (PAR,C,N,VAL,CF)". 
"Commonlist" routine has two choices, either a value 
list is specified or not. If the value list is not 
specified then "List" in the argument list is 
variable. All "conclude PAR for C N(...)" facts are 
retrieved and then "VAL,CF" pairs are returned as 
commonlist  "Lcommon" іп the argument list of the 
routine. Second choice is the case where а list of 
values are specified. In this 
case  "Hypothesislist" variable corresponds to all 
"VAL,CF" pairs of "conclude PAR for C N" facts. This 
list is intersected with specified list and resulting 
list is returned as "commonlist". 
/ ЖЕ зе ЗЕ зе ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ IE HE / 
commonlist(PAR,C,N,[List!L],Lcommon) 

var(List), 

find appl cntxt for C N(C,N,PAR), 

bagof([VAL,CF], 


concluded PAR for C N(PAR,Cx,Nx,VAL,CF),Lcommon). 
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commonlist(PAR,C,N, [List ],Lcommon) 


find appl cntxt for C N(C,N,PAR),!, 
bagof([VAL,CF], 

concluded PAR for C N(PAR,Cx,Nx,VAL,CF),Hypo 
thesislist), 

((v func_2(List TIST EDS 
intersection(L,Hypothesislist,Lcommon)); 


intersection([List],Hypothesislist,Lcommon)). 


intersection(L,[],Ll). 
intersection(L,[[X,Y]!L1],L[X,Y]!L21) 
member(X,L), 


intersection(L,L1,L2). 


intersection(L,[[X,Y]!L1],L2) 


intersection(L,L1,L2). 


/ Ж зе зе ЗЕ ЭЕ ЭЕ ЭЕ эе ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ / 


Find applicable contexts for current context 
instance (C,N) and parameter (PAR). 


f зе зе зе эе эе ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ IC QE C C ЭЄ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ / 


find appl cntxt for C N(C,N,PAR) 


check applicable context(PAR,Ca), 
not(find all appl descendants(C,N,Ca,PAR)), 


not(do assertion(C,N,PAR)). 


check applicable context(PAR,C) 


v func 2(PAR,memberof,P categ), 
context(C), 


v func 2(C,parmgroup,P categ). 


/ © Зе Зе Зе ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ / 


Current context is already the one which is 
applicable to PAR, so there is no need to look for any 
descendant. 


f ЗЕ ЗЕ ЗЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ / 


find all appl descendants(C,N,Ca,PAR) 


C == Ca, 
not(applicable descendant(C,N,PAR,C,N)), 


assert(applicable descendant(C,N,PAR,C,N)),fail. 


find all appl descendants(C,N,Ca,PAR) 


find brother(C,Ca,Na), 
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not(applicable descendant(C,N,PAR,Ca,Na)), 


assert(applicable descendant(C,N,PAR,Ca,Na)),fail. 


[HH HHH HHH / 


If C,N is immediate parent for applicable context 
then the fact "applicable descendant(C,N,PAR,Cx,Nx)" 
is asserted into dbase for all immediate descendant 
contexts of C,N. Note that "C,N,PAR" triple is our 
key. 

[HR KKK HH / 


find all appl descendants(C,N,Ca,PAR) 
v func 5(Ca,C,N,Ca,Na,tree), 
not(applicable descendant(C,N,PAR,Ca,Na)), 


assert(applicable descendant(C,N,PAR,Ca,Na)),fail. 


find all appl descendants(C,N,Ca,PAR) 
v func 5(C,Ca,Na,C,N,tree), 
not(applicable descendant(C,N,PAR,Ca,Na)), 


assert(applicable descendant(C,N,PAR,Ca,Na)),fail. 


f X XX эе ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ Эё ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ Эё Эё ЭЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ Эё Эё ЗЕ ЗЕ НЕ КЕ ХН НК ХНК У 


Applicable context is not reached yet, go down 
one more level. 


[HH HH HH HH / 
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find all applicable descendants(C,N,Ca,PAR) 
not(applicable descendant(C,N,PAR,Cx,Nx)), 
v func 2(C,offspring,Cs), 
v func 5(Cs,C,N,Cs,Ns,tree), 


find all applicable descendants(Cs,Ns,Ca,PAR). 


f X X эе эе эе эе ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ / 


HERE by using "fail" we use all applicable 
descendant contexts one by one and assert 
"concluded PAR for C N" for each of them. 

f XX X € ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЁ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ / 
do _ assertion(C,N, PAR) 
applicable descendant(C,N,PAR,Ca,Na), 


not(do assertion2(C,N,PAR,Ca,Na)),fail. 


do assertion2(C,N,PAR,Ca,Na) 


hypothesis(PAR,Ca,Na,VAL,CF), 


not(concluded PAR for C N(PAR,Ca,Na,VAL,CF)), 


assert(concluded PAR for C N(PAR,Ca,Na,VAL,CF)),fail. 


[HH HH HE HEHE HEHE ЭЕ ЭЕ ЭЕ ЭЕ ЭЁ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ / 


DON’T assert if it is already asserted. 


/ Ж зе зЕ эе Ээ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ э / 
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do assertion2(C,N,PAR,Ca,Na) 


hypothesis(PAR,Ca,Na,VAL,CF),fail. 


find brother(C,Cb,Nb) 


v func 5(C,Cp,Np,C,N,tree), 
v func 5(Cb,Cp,Np,Cb,Nb,tree), 


Cb \== C. 


absolute value(CF,CFabs) 


СЕ « @, 


CFabs is CF * -1. 


absolute value(CF,CF). 


min(A,B) :- min2(A,B),!. 


min2([X],X). 


min2([X:!:L],X) :- min2(L,Y),X =< Y. 


min2([X!L],Y) :- min2(L,Y). 


тах(А,В) :- тах2(А,В),!. 


тах2([Х],Х). 
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прасцяк е max2(L,Y),X >= Y. 


max2([X!L],Y) :- max2(L,Y). 


insert(A,[B],[A!B]). 


delete(X,[X!L],L). 


delete(X,[Y!L1],[Y!L2]) :- deiete(X,L1,L2). 


member(X,[]) :- !,fail. 
member(X,[X!L]). 


member(X,[Y!L]) :- member(X,L). 


affirmative(y). 
affirmative(yes). 
negative(no). 


negative(n). 


member2([X,CF1],[[X,CF1]!L1],[Y,CF2]) :- 


member([Y,CF2],L1). 
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APPENDIX B 
LIST OF FUNCTIONS 
This appendix contains the list of functions 
used in EMYCIN-PROLOG. Their original descriptions are 
given in [2]. 
NONNUMERIC PREDICATE FUNCTIONS 

KNOWN 

Returns true if the value of the parameter is 
known with a CF > @.2. 

NOTKNOWN 

Returns true if the CF of the parameter is less 
than or equal to 0.2. 

DEFINITE 

Returns true if the value of the parameter is 
known with certainty (CF - 1.0). 

SAME 

Returns the CF associated with the value of 
interest if it is greater than 0.2, otherwise returns 
false. 

NOTSAME 

Returns true if the CF associated with the value 
of interest is less than or equal to 0.2. 

MIGHTBE 

Returns true if the CF associated with the value 


of interest is greater than or equal to 0.2. 
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THOUGHTNOT 

Returns -CF associated with the value of interest 
if it is less than -0.2, otherwise returns false. 

VNOTKNOWN 

Returns true if the CF associated with the value 
of interest lies between -0.2 and 1. 

DEFIS 

Returns true if the CF associated with the value 
of interest is equal to 1. 

DEFNOT 

Returns true if the CF associated with the value 
of interest is equal to -1. 

NOTDEFIS 

Returns true if the CF associated with the value 
of interest lies between 0.2 and 1. 

NOTDEFNOT 

Returns true if the CF associated with the value 


of interest lies between -1 and -@.2. 


NUMERIC PREDICATE FUNCTIONS 
GREATERP 
Returns true if the value of interest is known 
with a CF» 0.2 and is greater than or equal to the 


number specified. 
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GREATEQ 


Returns true if the value 
with a CF» 0.2 and is greater 
number specified. 

LESSP 

Returns true if the value 


with a CF» 0.2 and is less than 
LESSEQ 
Returns true if the value 

with a CF» 0.2 and is less than 


specified. 


of interest is known 
than or equal to the 
of interest is known 


the number specified. 


of interest is known 


or equal to the number 


CONCLUSION FUNCTIONS 


CONCLUDE 
Updates the value of 


database. Update 


a parameter 


іп the dynamic 


process includes combining certainty 


values and explained in Section III.A. 
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APPENDIX C 
KNOWLEDGE BASES 

This appendix contains listing of the static 
knowledge and rulebase of the CAR diagnosis system and 
FINANCE analysis system, which are held in the files 
CARRULES, and  FINANCERULES. Each file contains all 
static knowledge/information about contexts and 
parameters too. 

Prolog rules and facts which presented in this 
appendix are written by knowledge engineer. This 
process corresponds to the knowledge base construction 
phase of the expert system development process. 

Following are some of the the cautions about 
writing rules for EMYCIN-PROLOG. The knowledge 
engineer should be careful in these details. 

Since all rules are tried, every rule should 
include all required premises explicitly. 

Premises which has VAR as a value list has to be 
treated differently. After execution of a premise 
clause PAR value is asserted into data base as 
"hypothesis(PAR,CNTXT,N,VAL,CF)", this fact should be 
called explicitly to be able to use VAL in other 
premises of a rule. 

In the "conclude" clause of each rule CF value 


should be passed by "min" or "max" function. Otherwise 
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CF value should be defined explicitly. 

In "concluded" routine tree pointer should be a 
variable different than current tree pointer. 

The value to be searched for, should be enclosed 
in brackets in “eval premise" routine. 

All rules are tried unless PAR is singlevalued 
and its value is concluded with  CF-1(-1) in any of 
previous rules. The point that all rules are tried 
should be remembered during the rule writing process 


otherwise surprising answers can be obtained !!! 


i CAR DIAGNOSIS SYSTEM KNOWLEDGE BASE 


[HHH HHH HHH CONTEXT DEFINITIONS X X / 

context(nnil). 

J E эе эе э эе эе ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ / 
This fact is required for "initialize askabiee 

routine 

J E зе эе ЭЕ эе эе эе ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ / 

nnil(offspringjoarom 

context(car). 

car(offspring,electrical system). 

car(offspring,fuel system). 

car(assocwith,nnil). 

car(parmgroup,car parms). 


car(prompt3,’This is a car diagnoses program’ ). 
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car(mainprops,[year,model,problems]). 


context(electrical system). 

electrical system(offspring,nnil). 

electrical system(assocwith,car). 

electrical system(parmgroup,elec parms). 

electrical system(prompt5,'Electrical system needs to 
be checked !! 7’). 


electrical system(mainprops,[]). 


context(fuel system). 

fuel system(offspring,nnil). 

fuel system(assocwith,car). 

fuel system(parmgroup,fuel parms). 

fuel system(prompt2,'Fuel system needs to be checked 
meee’). 


fuel system(mainprops,[throttle test]). 


/ Же зе зе эе эе эе ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ PARAMETER DEFINITIONS + зезе зе зе зе зе / 
parameter(year). 

year(memberof,car parms). 
year(valutype,singlevalued). 

year(expect,number). 

year(prompt,year prompt). 


year(can ask,1). 
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year_prompt 


write(’ What is the year of the car ?’), 


write(’? ==> ?). 


parameter(model). 
model(memberof,car parms). 
model(valutype,singlevalued). 
model(expect,any). 
model(prompt,model prompt). 


model(can ask,1). 


model prompt 


write('What is the model of the car ?’),write(’ 
› у. 


parameter(problems). 
problems(memberof,car parms). 
problems(valutype,singlevalued). 
problems(expect,any). 


problems(can_ask,@). 


parameter(stalled_engine). 
stalled _engine(memberof,elec_parms). 


stalled _engine(valutype,multivalued). 
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stalled engine(expect,any). 
stalled engine(can_ask,®@). 
stalled_engine(trans,’The cause of the stalled engine 


problem is : ’). 


parameter(electrical). 
electrical(memberof,elec parms). 
electrical(valutype,multivalued). 
electrical(expect,any). 


е1есігіса1 (сап аѕк,@). 


parameter(battery). 
battery(memberof,elec parms). 
battery(valutype,multivalued). 
battery(expect,number ). 


battery(can_ask,@). 


parameter(dimming light). 

dimming light(memberof,elec_parms). 

dimming light(valutype,yes_ no). 

dimming light(expect,yes_no). 

dimming light(prompt,dimming light prompt). 


dimming light(can_ask,1). 
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dimming light prompt 


print(’Turn on your lights and operate the starter 
ац» 

print(’Do the lights go out or become dim ? 
(yes/no) ”), 


write(’*® ==> '). 


parameter(hydrometer ). 
hydrometer(memberof,elec parms). 
hydrometer(valutype,singlevalued). 
hydrometer(expect,number). 
hydrometer(prompt,hydrometer prompt). 


hydrometer(can ask,1). 


hydrometer prompt 


print('What is the specific gravity measured by 
hydrometer ??’), 


write! == 598") 2 


parameter(battery volt). 

battery volt(memberof,elec parms). 
battery volt(valutype,singlevalued). 
battery volt(expect,number). 


battery volt(prompt,battery volt prompt). 
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battery _volt(can_ask,1). 


battery volt prompt 


print('Disconnect the battery connections and 
measure the voltage’),nl, 
print('What is the voltage measured on battery ?'), 


WY Libe Gas = yas). 


parameter (ammeter). 
ammeter(memberof,elec parms). 
ammeter(valutype,yes no). 
ammeter(expect,yes no). 
ammeter(prompt,ammeter prompt). 


ammeter(can ask,1). 


ammeter prompt 


print('Does the ammeter shows a slight discharge 


(or does the ’),nl, 


print('telltale lamp light) when the ignition is 
turned  on.? (yes/no)’), 


се (==). 


parameter(starting motor). 


starting motor(memberof,elec parms). 


Шэ Э 


starting motor(valutype,yes no). 
starting motor(expect,yes no). 
starting motor(prompt,starting motor prompt). 


starting motor(can ask,1). 


starting motor prompt 


print('Does the electrical system go dead when the 
starter switch ’),nl, 
print(’is turned on? (yes/no)’), 


write(’ ==> ’). 


parameter(fuel sys). 
fuel(memberof,fuel parms). 
fuel(valutype,multivalued). 
fuel(expect,any). 


fuel(can ask,90). 


parameter(fuel to carb). 

fuel to carb(memberof,fuel parms). 
fuel to carb(valutype,single). 
fuel to carb(expect,any). 


fuel to carb(can ask,90). 


parameter(throttle test). 


throttle test(memberof,fuel parms). 
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throttle test(valutype,yes_no). 
throttle test(expect,yes no). 
throttle test(prompt,throttle test prompt). 


throttle test(can ask,1). 


throttle test prompt 
print('Move the throttle manually, do you see a 
spray of fuel’),nl, 
print(’mixture in the carburator throat. ? 
(уез/по)’), 


write(? ==> °). 


parameter(fuel pump). 

fuel pump(memberof,fuel parms). 
fuel pump(valutype,yes no). 

fuel pump(expect,yes no). 

fuel pump(prompt,fuel pump prompt). 


fuel pump(can ask,1). 


fuel pump prompt 
print(’ Disconnect the fuel line at the 
carburator.’),nl, print(’ Crank the engine ’), 
print(’Do you see fuel pulsating out ’),nl, 


print(’of the line. ? (yes/no) '),write(’ ==> ’). 
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parameter(fuel_line). 

fuel line(memberof,fuel parms). 
fuel line(valutype,yes no). 

fuel line(expect,yes no). 

fuel line(prompt,fuel line prompt). 


fuel line(can ask,1). 


fuel line prompt 
print(’ Disconnect the fuel line at the >), 
print('inlet side of the pump.'),nl, 

print(' Blow into the line, '), 

print(’Does your friend hear gurgling sound’),nl, 
print(’from the fuel tank inlet.? (yes/no) e 


wrübke( "225 '). 


parameter(fuel filter). 

fuel filter(memberof,fuel parms). 

fuel filter(valutype,yes no). 

fuel filter(expect,yes no). 

fuel filter(prompt,fuel filter prompt). 


fuel filter(can ask,1). 


fuel filter prompt 
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print(’ Disconnect the inlet side of the line 
filter (usually’),nl, 

print(’a small, clear plastic canister spliced into 
the fuel’),nl, 

print(’line) Crank the engine. Do you see a good 
shot of fuel. ?’), 


print(’ (yes/no)’),write(’ ==> ’). 


[HHH HH RULES  ****xx»xxs«xxxxxxxxxx/ 


The "cut" operator (!) is used to prevent 
backtracking. "try all rules for PAR" routine tries 
other parameters if it cannot find then backtracks 
so, "!" stops it and ends consultation. 


[| HH HH HH ЗЕ ЗЕ ЭЕ ЭЕ HEHE HH HE HEHEHE TE HEHE HEHEHE ЗЕ HEHE HEHEHE ЗЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ HEHE HEHE EE / 


problems(CNTXT,N,PROBLEMS,CFrule) 
print(’What is/are the problem(s) ?’),nl, 
print(’1.Stalled engine’),nl, 
print(’2.Dieseling’ ),nl, 
print(’3.Engine noise’),nl, 
print(’4.Slow cranking’ ),nl, 
print(’5.Hard starting’ ),nl, 
print(’6.Rough idle’),nl,nl,nl, 
print(’Enter the number which corresponds to the 


problem ’), 
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read( NUMBER ),n1, 
problem_fact( NUMBER, PROBLEM), 
assert(goal( PROBLEM) ), 


еуа1 раг (СМТХТ, [| РКОВІЕМ],М),п1,п1,!. 


/ + зе зе зе эе зе эе ЭЕ ЭЕ ЗЕ ЗЕ ЗЕ ЭЕ ЭЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЭЕ ЗЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ / 


If any one of the rules can be satisfied more 
than once, then all such choices’ are tried since 
'try all rules for PAR! routine uses "fail" predicate 
and any individual rule will be tried until all 
possible choices are satisfied in the rule premise. 
For example in first stalled_engine rule VALc,CFc can 
bind more than one values, if there are more than one 
hypotheses in database which concludes a value about 
"electrical". 


/ HEHEHE HEHE ETE ЗЕ ЗЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ ЗЕ / 


stalled engine(CNTXT,N,VALc,1) 


eval premise(same,electrical,CNTXT,N,VAL,CF), 
hypothesis(electrical,Cx,Nx,VALc,CFc), 


conclude(CNTXT,N,stalled engine,VALc,1,CFc). 


stalled engine(CNTXT,N,VALc,1) 


eval premise(same,fuel,CNTXT,N,VAL,CF), 


hypothesis(fuel,Cx,Nx,VALc,CFc), 
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conclude(CNTXT,N,stalled engine,VALc,1,CFc). 


electrical(CNTXT,N,'battery',0.8) 


eval premise(same,dimming light,CNTXT,N,[yes],CF1), 
eval premise(same,battery,CNTXT,N,[weak],CF2), 
min([CF1,CF2],CF), 


conclude(CNTXT,N,electrical,'battery',0.8,CF). 


electrical(CNTXT,N,'neutral safety switch',0.7) 


eval premise(same,ammeter,CNTXT,N,[yes],CF1), 

eval premise(same,starting motor,CNTXT,N,[yes],CF2), 
min([CF1,CF2],CF), 

conclude(CNTXT,N,electrical, 


'neutral safety switch',0.7,CF). 


ENectrical(CNTXT,N,'starter circuit',0.6) 


eval premise(same,dimming light,CNTXT,N,[no],CF!1), 
eval premise(same,fuel,CNTXT,N,[ok],CF2), 
min([CF1,CF2],CF), 


conclude(CNTXT,N,electrical,'starter circuit',0.6,CF). 


battery(CNTXT,N,'weak',1) 
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eval premise(lessp,hydrometer ,CNTXT,N,[1250],true), 
eval premise(lessp,battery_volt,CNTXT,N,[12],true), 


conclude(CNTXT,N,battery,'weak',1,1). 


battery(CNTXT,N,'bad connections',0.8) 
eval premise(greateq,hydrometer,CNTXT,N,[12590],true), 
eval premise(greateq,battery volt,CNTXT,N,[12],true), 


conclude(CNTXT,N,battery,'bad connections’,1,0.8). 


battery(CNTXT,N,'weak',0.5) 
eval premise(greateq,hydrometer,CNTXT,N,[12590],true), 
eval premise(lessp,battery volt,CNTXT,N,[12],true), 


conclude(CNTXT,N,battery,'weak',0.5,1). 


battery(CNTXT,N,"weak',0.5) 


e I 
е 


eval _premise(lessp,hydrometer ,CNTXT,N,[1250],true), 
eval premise(greateq,battery volt,CNTXT,N,[12],true), 


conclude(CNTXT,N,battery,'weak',0.5,1). 


fuel(CNTXT,N,'fuel pump!,1) 


eval premise(defis,throttle test,CNTXT,N,[no],true), 


eval premise(same,fuel pump,CNTXT,N,[no],CF1), 
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eval premise(same,fuel_filter,CNTXT,N,[no],CF2), 
eval premise(same,fuel_line,CNTXT,N,Lyes],CF3), 
min( [CF1 ,CF2,CF3],CF), 


conclude(CNTXT,N,fuel,'fuel pump',1,CF). 


fuel(CNTXT,N,'fuel line',1) 

eval premise(defis,throttle test,CNTXT,N,[no],true), 
eval premise(same,fuel pump,CNTXT,N,[no],CF1), 

eval premise(same,fuel filter,CNTXT,N,[no],CF2), 
eval premise(same,fuel line,CNTXT,N,[no],CF3), 
min([CF1,CF2,CF5],CF), 


conclude(CNTXT,N,fuel,'fuel line',1,CF). 


fuel(CNTXT,N,'carburator',1) 
eval premise(defis,throttle test,CNTXT,N,[no],true), 
eval premise(same,fuel pump,CNTXT,N,[yes],CF), 


conclude(CNTXT,N,fuel,'carburator,1,CF). 


fuel(CNTXT,N,'carburator',1) 


eval premise(defis,throttle test,CNTXT,N,[yes],true), 
eval premise(same,starting motor,CNTXT,N,[yes],CF), 


conclude(CNTXT,N,fuel,'carburator',1,CF). 
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fuel CCNTXT,N, fuel filter 


eval premise(defis,throttle test,CNTXT,N,[no],true), 
eval premise(same,fuel pump,CNTXT,N,[no],CF1), 

eval premise(same,fuel filter,CNTXT,N,[yes],CF2); 
min( LCF1 ,CF2],CF), 


conclude(CNTXT,N,fuel,'fuel filter',1,CF). 


f * XX XX XX HK HK HH FACTS ABOUT MAIN MENU XXXXXxxcxxxx/ 
problem fact(i,stalled engine). 

problem fact(2,dieseling). 

problem fact(5,engine noise). 

problem fact(4,slow cranking). 

problem fact(5,hard starting). 


problem fact(6,rough idle). 


2. FINANCE ANALYSIS SYSTEM KNOWLEDGE BASE 


[HR HH CONTEXT DEFINITIONS  *# HHH MH HHH HHH HH / 
context(nnil). 
nnil(offspring,lease). 


goal(payment). 
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context(lease). 

lease(offspring,finance). 

lease(assocwith,nnil). 

lease(parmgroup,lease parms). 

lease(prompt3,’The following is a part of a 
lease/acquire by/finance DSS’ ). 
lease(mainprops,[payment]l). 

lease(prompt2,'Is there any other lease problem you 


want to solve ?’). 


context(finance). 

finance(offspring,nnil). 

finance(assocwith,lease). 
finance(parmgroup,finance parms). 

finance(prompt1,’Do you want to analyze the financing 
for asset ?’). 

finance(mainprops,[]). 

finance(prompt2,’Do you have any other finance to 


analyze ?’). 


J******K*X***X*X*** PARAMETER DEFINITIONS *# #4 HK HHH HHH / 
parameter(asset cost). 

asset cost(memberof,finance parms). 

asset cost(valutype,singlevalued). 


asset cost(expect,number). 
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asset_cost(prompt,asset_cost_prompt). 
asset_cost(can_ask,1). 


asset cost(trans,'the cost of the asset ’). 


asset cost prompt 
write(’What is the asset cost’), 


write(’ ==>’). 


parameter(down payment). 

down payment(memberof,finance parms). 

down payment(valutype,singlevalued). 

down payment(expect,number). 

down payment(prompt,down payment prompt). 

down payment(can ask,1). 

down payment(trans,'amount of down payment for the 


asset’). 


down_payment_prompt 


write('What is the amount of down payment ?’), 


Write (jie ==> 


parameter(finance it). 
finance it(memberof,finance parms). 


finance it(valutype,singlevalued). 
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finance it(expect,number ). 
finance it(can ask,0). 


finance it(trans,’The yearly payment on the asset’). 


parameter(finance interest). 

finance interest(memberof,finance parms). 

finance interest(valutype,singlevalued). 

finance interest(expect,number ). 

finance interest(prompt,finance interest prompt). 
finance interest(can ask,l1). 

finance interest(trans,'The percentage yield to the 


firm for the loan’). 


finance interest prompt 
write(’Percent charged by the leasing firm ?’), 


write(? ==>’). 


parameter(finance period). 

finance period(memberof,finance parms). 

finance period(valutype,singlevalued). 

finance period(expect,number ). 
finance_period(prompt,finance period prompt). 

finance period(can ask,1). 

finance period(trans,'The length in years of the 


leasing period line for the asset’). 
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finance period prompt 


write('Lease period ?), 


Бе --o P 


parameter(option lease). 

option lease(memberof,finance parms). 
option lease(valutype,yes no). 

option lease(expect,yes no). 

option lease(prompt,option lease prompt). 
option lease(can ask,1). 


option_lease(trans,’Lease is to be modified lease’ ). 


option lease prompt 


write('Do you want a lease with the option to 
terminate ?’), 


Wied bet 2337). 


parameter(straight lease). 

straight lease(memberof,finance parms). 
straight lease(valutype,yes no). 

straight lease(expect,yes no). 

straight lease(prompt,straight lease prompt). 


straight lease(can ask,1). 
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straight lease(trans,’Lease 15 to be a straight 


lease’). 


straight lease prompt 


write('Do you want a straight lease ?'), 


wWwrite(' ==>’). 


parameter(asset name). 

asset name(memberof,lease parms). 

asset name(valutype,singlevalued). 

asset name(expect,any). 

asset name(prompt,asset name prompt). 

asset name(can ask,1). 

asset name(trans,'The asset that tou are considering 


for’). 


asset name prompt 
write('Asset name ?”), 


write(’ ==>’). 


parameter(acquire by). 
acquire_by(memberof,lease parms). 
acquire by(valutype,singlevalued). 


acquire by(expect,any). 
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acquire by(can_ask,®@). 
acquire by(trans,’Determination to straight lease or 


acquire by the asset’). 


parameter(cannot borrow). 

cannot borrow(memberof,lease parms). 

cannot borrow(valutype,yes no). 

cannot borrow(expect,yes no). 

cannot borrow(can ask,90). 

cannot borrow(trans,'Your credit is too low to get a 
loan’). 

parameter(cash reserve needed). 

cash reserve needed(memberof,lease parms). 

cash reserve needed(valutype,yes no). 

cash reserve needed(expect,yes no). 

cash reserve needed(prompt, 

cash reserve needed prompt). 

cash reserve needed(can ask,1). 

cash reserve needed(trans,'You do need to maintain 


large cash reserves’). 


cash_reserve_needed prompt 


write(’Do you need to maintain larger cash reserves ? 
(yes/no)'), 


write( 7-250 
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parameter(how to acquire). 
how to acquire(memberof,lease parms). 
how to acquire(valutype,multivalued). 
how to acquire(expect,any). 
how to acquire(can ask,90). 


how to acquire(trans,'My recommendation! ). 


parameter(lender checks). 

lender checks(memberof,lease parms). 

lender checks(valutype,yes no). 

lender checks(expect,yes no). 

lender checks(prompt,lender checks prompt). 

lender checks(can ask,1). 

lender checks(trans,'Lender does check on outstanding 


leases when making a loan’). 


lender checks prompt 


write('When you go to borrow money , Does the 
lender check’ ),nl, 

write(’on any outstanding leases you have ? 
(yes/no)’), 


ritel -->”). 


parameter(lessee cash). 


lessee cash(memberof,lease parms). 
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lessee _cash(valutype,singlevalued). 
lessee cash(expect,any). 

lessee cash(prompt,lessee cash prompt). 
lessee cash(can ask,1). 


lessee cash(trans,’The cash reserves’). 


lessee cash prompt 
write('how would you describe your cash reserves ? 
(good/fair/poor)?), 


ие Е 


parameter(lessee credit). 

lessee credit(memberof,lease parms). 

lessee credit(valutype,singlevalued). 
lessee credit(expect,any). 

lessee credit(prompt,lessee credit prompt). 
lessee credit(can ask,1). 


lessee credit(trans,’Your credit rating’ ). 


lessee credit prompt 


write('How would you describe your current credit 
rating ? (good/fair/poor)’), 
write(? ==>’). 


parameter(payment). 
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payment(memberof,lease_parms). 
payment(valutype,singlevalued). 

payment(expect,any). 

раутепі (сап аѕк, 0). 

payment(trans,’Payment on the asset for the asset is 


($) mee 


parameter(preserves cash). 

preserves cash(memberof,lease parms). 

preserves cash(valutype,yes no). 

preserves cash(expect,yes no). 

preserves cash(can ask,90). 

preserves cash(trans,'This lease does preserve your 


cash reserves’ ). 


parameter(preserves credit). 

preserves credit(memberof,lease parms). 

preserves credit(valutype,yes no). 

preserves credit(expect,yes no). 

preserves credit(can ask,90). 

preserves credit(trans,'This lease does preserve your 


credit rating’). 
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[3 9H 3H FEE FE TEE IE FEE IEEE RULES. XXX € 2 X N N N N X X NNOO K / 


cannot borrow(CNTXT,N,'yes',1.0) 


eval premise(same,lessee credit,CNTXT,N,[poor],CF), 
conclude(CNTXT,N,cannot borrow,'yes',1.0,CF),nl, 
write('Your credit is not adequate.You cannot 
borrow money to acquire by the asset ’),nl, 


write(’Therefore LEASE the asset ’),nl. 


acquire by(CNTXT,N,’lease’,1.0) 


(eval premise(same,cannot borrow,CNTXT,N,[yes],CF1); 
eval premise(same,preserves credit,CNTXT,N,[yes],CF2); 
eval premise(same,preserves cash,CNTXT,N,[yes],CF2)), 
conclude(CNTXT,N,how to acquire,'1lease',1.0,CF1), 
conclude(CNTXT,N,acquire by,'1lease',1.0,CF1),n1, 


write(’My recommendation is lease the asset’),nl. 


acquire by(CNTXT,N,'purchase',1.0) 


not(hypothesis(acquire by,Cx,Nx,VAL,CFx)), 
conclude(CNTXT,N,acquire by,'purchase',1.0,1.0),n1, 


write(’My recommendation is buy the asset’),nl. 
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preserves credit(CNTXT,N,'yes',1.0) 


eval premise(same,lessee credit,CNTXT,N,[fair],CF1), 
eval premise(same,lender checks,CNTXT,N,[no],CF2), 
nin([CF1,CF2];,CE); 

conclude(CNTXT,N,preserves credit,'yes',1.0,CF),nl, 
write('Your credit rating will not be affected by 


leasing the asset’),nl. 


preserves cash(CNTXT,N,’yes’,.9) 
eval premise(same,lessee credit,CNTXT,N,[fair],CF1), 
eval premise(same,lender checks,CNTXT,N,[yes],CF2), 
eval premise(same,lessee cash,CNTXT,N,[fair],CF3), 
eval premise(same,cash_reserve_needed,CNTXT,N,[yes], 
CF4), 

min([CF1,CF2,CF5,CF4],CF), 


conclude(CNTXT,N,preserves cash,'yes',.9,CF). 


finance it(CNTXT,N,VAL,1.@) 


eval_premise(same,acquire by,CNTXT,N,[lease],CF1), 
eval premise(same,straight lease,CNTXT,N,[yes],CF2), 
eval premise(known,asset cost,CNTXT,N,[VAL1],true), 


eval premise(known,finance interest,CNTXT,N,[VAL2], 


true), 
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eval premise(known,finance period,CNTXT,N,[VAL3], 
true), 

hypothesis(asset_cost,Cx,Nx,VAL4,CFx), 
hypothesis(finance interest,Cy,Ny,VAL5,CFy), 
hypothesis(finance period,Cz,Nz,VAL6,CFz), 

min( [CF1,CF2],CF); 

VAL is (VAL4*x(VAL5/100)+(VAL4/VAL6)+((VAL4*2)/100)), 


conclude(CNTXT,N,finance it,VAL,1.0,CF). 


finance it(CNTXT,N,VAL,1.0) 

eval premise(same,acquire by,CNTXT,N,[1ease],CF1), 
eval premise(same,option lease,CNTXT,N,Í[yes],CF2), 
eval premise(known,asset cost,CNTXT,N,[VAL1],true), 
eval premise(known,finance interest,CNTXT,N,[VAL2], 
true), 

eval premise(known,finance period,CNTXT,N,[VAL3], 
true), 

hypothesis(asset cost,Cx,Nx,VAL4,CFx), 
hypothesis(finance interest,Cy,Ny,VAL5,CFy), 
hypothesis(finance period,Cz,Nz,VAL6,CFz), 
min([CF1,CF2],CF), 

VAL is ((VALA*(VAL5/1990))-*(VAL4/VAL6)), 


conclude(CNTXT,N,finance it,VAL,1.0,CF). 
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finance it(CNTXT,N,VAL,1.0) 


eval premise(same,acquire by,CNTXT,N,[purchase],CF), 
eval premise(known,asset cost,CNTXT,N,[VAL1],true), 
eval premise(known,finance interest,CNTXT,N,[VAL2], 
true), 

eval premise(known,finance_period,CNTXT,N,[VAL3], 
true), 

eval premise(known,down payment,CNTXT,N,[VAL4],true), 
hypothesis(asset_cost,Cx,Nx,VAL5,CFx), 
hypothesis(finance interest,Cy,Ny,VAL6,CFy), 
hypothesis(finance period,Cz,Nz,VAL7,CFz), 
hypothesis(down payment,Cw,Nw,VAL8,CFw), 

VAL is (((VAL5-VAL8)/VALT7)*((100--VAL6)/100)), 


conclude(CNTXT,N,finance i1t,VAL,1.0,CF). 


payment(CNTXT,N,VALx,1.0) 
eval premise(same,finance it,CNTXT,N,VAL,CF), 
hypothesis(finance it,Cx,Nx,VALx,CFx), 


conclude(CNTXT,N,payment,VALx,1.0,1.0). 
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APPENDIX D 
SAMPLE CONSULTATIONS 
The sample consultations presented in this 
appendix occur between expert system and consultor. 
The consultor is in charge of finding required data. 
The consultor can answer any data request as "unk" 


which implies that there is no data available. 
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1. CAR DIAGNOSIS CONSULTATIONS 
Depending upon the data provided by the consultor 
three different consultations are obtained for the CAR 


diagnosis system. 


C-Prolog version 1.5 
! ?- [engine,func,utilities,carrules]. 
engine consulted 12580 bytes 5.08555 sec. 
func consulted 6572 bytes 1.98333 sec. 
utilities consulted 7020 bytes 1.71667 sec. 
carrules consulted 10000 bytes 2.9 sec. 
WELCOME TO EMYCIN-PROLOG CONSULTATION PROGRAM 
Please enter "begin" to start the consultation 
yes 
| ?7— begin. 
Enter the name of the root context  (CAR,LEASE) 
==>car. 
This is a car diagnoses program 
По ал | —=== 
саг—1 
What is the year of the car ? ==> 86. 
саг-1 
What is the model of the car ? ==> new. 
What is/are the problem(s) ? 
1.Stalled engine 


2.Dieseling 
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3.Engine noise 
4.Slow cranking 
5.Hard starting 


6.Rough idle 


II 
II 
м 


Enter the number which corresponds to the problem 
1. 

Electrical system needs to be checked !! ? 
————electrical system iE 

electrical_system-1 


Turn on your lights and operate the starter 


Do the lights go out or become dim ? (yes/no) 
==) Sİ. 
Unexpected answer !!! Please try again. 


electrical system-1 

Turn on your lights and operate the starter 

Do the lights go out or become dim ? (yes/no) 
==> yes. 

electrical system-1 

What is the specific gravity measured by hydrometer ? 
==> 1200. 

electrical system-1 

Disconnect the battery connections and measure the 
voltage 

What is the voltage measured on battery ? --> 10. 
electrical system-1 


Does the ammeter shows a slight discharge (or does the 
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telltale lamp light) when the ignition is turned on.? 
(yes/no) ==> yes. 

electrical system-1 

Does the electrical system go dead when the starter 
switch is turned on.? (yes/no) ==> no. 

Fuel system needs to be checked !! ? 

p2--ifuel system-1---- 

fuel system-1 

Move the throttle manually, do you see a spray of fuel 
mixture in the carburator throat. ? (yes/no) ==> 


yes. 


The cause of the stalled engine problem is : 
battery 


with the certainity : 0.8 


------- CONCLUSIONS MADE DURING THE CONSULTATION -- 


parameter / value / certainity / context instance 


year --- 86 --- 1--- саг--1 

model --- new --- 1--- car--1 

amming light —-- yes --- 1--- electrical system--! 
hydrometer --- 1200 --- 1--- electrical system--1 
battery volt --- 10 --- 1--- electrical system--1 
Bebbery --- weak --- |--- electrical system--1 
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electrical --- battery --- @.8--- electrical systema 


ammeter --- yes --- 1Т-=== етестєгіса ву нет и 

starting motor --- no --- !--- ејесшттеа ву ен = 
stalled_engine ---battery---@.8---electrical systema 
throttie test —-- yes 1 т о = 

уе5 

| ?7— begin. 


Enter the name of the root context  (CAR,LEASE) 
==>car. 

This is a car diagnoses program 

—— Car j| 

саг-1 

What is the year of the car 7 ==> 65. 
саг-1 

What is the model of the car ? ==>) old. 
What is/are the problem(s) ? 

1.Stalled engine 

2.Dieseling 

5.Engine noise 

4.Slow cranking 

5.Hard starting 

6.Rough idle 


Enter the number which corresponds to the problem 


|| 
|| 
~ 


E 
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Electrical system needs to be checked !! ? 
----electrical system-1---- 

electrical system-1 

Turn on your lights and operate the starter 

Do the lights go out or become dim ? (yes/no) 
==> yes. 

electrical system-1 

What is the specific gravity measured by hydrometer ? 
==> 1300. 

electrical system-1 

Disconnect the battery connections and measure the 
voltage 

What is the voltage measured on battery ? ==> 12. 
electrical system-1 

Does the ammeter shows a slight discharge (or does the 
telltale lamp light) when the ignition is turned on.? 
(yes/no) ==> yes. 

electrical system-1 

Does the electrical system go dead when the starter 
switch is turned on.? (yes/no) ==> no. 

Fuel system needs to be checked !! ? 

—----fuel_ system-1---- 

fuel system-1 

Move the throttle manually, do you see a spray of fuel 


mixture in the carburator throat. ? (yes/no) ==> 


no. 
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fuel system-1 
Disconnect the fuel line at the carburator. 
Crank the engine.Do you see fuel pulsating out 


of the line. ? (yes/no) ==> yes. 


The cause of the stalled engine problem is : 
carburator 


with the certainity : 1 


E CONCLUSIONS MADE DURING THE CONSULTATION --- 


parameter / value / certainity / context instance 


year. 65 === 1 can] 

model === old === "о ыг = 

dimming light --- yes --- 1--- electrical system--1 
hydrometer --- 1500 --- i--- electrical system--i 
battery volt --- 12 --- 1--- electrical system--1 
battery === bad connections --- п ЗЕ 


electrical system--1 


ammeter --- уез --- |--—- electrical ЕП 
starting motor --- no --- 1--- etectrical system mi 
throttle test --—- no --- 1--- где system--J 

fuel pump --- yes --- 1i--- fuel system--1 
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fuel ——— carburator ——-1i--- fuel system--t1 


stalled engine---carburator---1---electrical_ _system--1 


|! ?— halt. 


[ Prolog execution halted ] 


D FINANCE ANALYSIS CONSULTATIONS 

The consultation results obtained for the FINANCE 
analysis system are the same with the original FINANCE 
analysis system which is built elsewhere [15]. 
Following the second consultation original 
consultation results are also given for the comparison 


purpose. 


% prolog 

C-Prolog version 1.5 

! ?- [engine,func,utilities,financerules]. 
engine consulted 12544 bytes 5.06667 sec. 
func consulted 6572 bytes 1.9 sec. 


utilities consulted 7020 bytes 1.65555 sec. 
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financerules consulted 9788 bytes 2.65 sec. 

WELCOME TO EMYCIN-PROLOG CONSULTATION PROGRAM 

Please enter "begin" to start the consultation 
yes 

(|. 7— begin. 
Enter the name of the root context  (CAR,LEASE) 
==>lease. 
The following is a part of a lease/acquire by/finance 
DSS 

----lease-1---- 

Do you want to analyze the financing for asset ? 
У. 

— financen e 

Do you have any other finance to analyze ? ==>n. 
1еазе-1 

How would you describe your current credit rating ? 
(good/fair/poor) ==>good. 

My recommendation is buy the asset 

finance-1 

What is the asset cost ==>>000. 

finance-1 

Percent charged by the leasing firm ? ==›12. 
finance-1 

Lease period ? -->2. 

finance-1 


What is the amount of down payment ? -->500. 
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Is there any other lease problem you want to solve 2 


ш->п. 


Payment on the asset for the asset is ($) : 
1400 


with the certainity : 1 


ня CONCLUSIONS MADE DURING THE CONSULTATION --- 


parameter / value / certainity / context instance 


ШЕ--ее credit === good ——— 1|--- lease--| 
wearer py === purchase =-=- 1--- lease--1 
asset_cost === 5000) --- 1--- finance--1 
Mne interest 12 === |--- ІЗпапсе--1 
mance period --- 2 --- 1--- ІГіпһапсе--1 
darn payment --- 500 --- 1--- finance--1 
finance it --- 1400 --- 1--- finance--1 
payment --- 1490 --- 1--- lease--1 

yes 

| ?— begin. 


Enter the name of the root context  (CAR,LEASE) 
==>lease. 


The following is a part of a lease/acquire by/finance 


DSS 
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----1еазе-1---- 

Do you want to analyze the financing for asset ? 
зару. 

----finance-1---- 

Do you have any other finance to analyze ? ==>у. 
----finance-2---- 

Do you have any other finance to analyze ? ==>n. 
1еазе-1 

How would you describe your current credit rating ? 
(good/fair/poor) ==>роог. 

Your credit is not adequate.You cannot borrow money to 
acquire by the asset 

Therefore LEASE the asset 

My recommendation is lease the asset 

finance-1 

Do you want a straight lease ?  --»yes. 

finance-1 

What is the asset cost -->4000. 

finance-1 

Percent charged by the leasing firm ?  zz»15. 
finance-1 

Lease period ? -->5. 

finance-1 

Do you want a lease with the option to terminate ? 
==>по. 


Is there any other lease problem you want to solve ? 
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EIE 
Payment on the asset for the asset is ($) : 
1355.3 


with the certainity : 1 


ku CONCLUSIONS MADE DURING THE CONSULTATION --- 


parameter / value / certainity / context instance 


| сошстеати ===-< роодог —-— |--- lease-*?" 
cannot DOrrow ==- уе ___ „== lease--1 
Howe tO acquire ——— lease --- 1--- lease--! 
acquire by --- lease --- 1--- lease--1 

c raight lease --- yes === !--- папсе--! 
s C Cost === 4000 --- 1--- Ііпапсе--1 

иш тпапсе interest === 15 == 1--- finance--i1i 
finance period --- 3 --- 1--- finance--1 
oe It === 1852.25 --- 1--- Еітатсе--1 
Epronclease ——— no ——— 1--- f£inance--1 
ИНО ——— 1853.3 === 1--- lease--! 

yes 

| ?7— halt. 


[ Prolog execution halted ] 
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Consultation results of the Personal Consultant 
Plus expert system shell for the FINANCE analysis 
system [14]. 

The knowledge-base for these results are the same 
with the one in appendix.C.2. In parantheses are the 


corresponding terms of our FINANCE analysis system. 


Consultation record for: DEMO LEASE OR BUY 


DECISION SYSTEM 


your credit rating ¢: \POOR\ 
lease is to be a modifiable option l... :: \YES\ 


( straight lease ?) 


ASSET-COST :: \4000\ 
FINANCE-INTEREST 20115 
FINANCE-PERIOD 2S NN 
analyzing the financing ОНО 


( any other lease problem 7) 


ASSET-1 CONCLUSIONS 
My recommandation is as follows: LEASE the asset 


Payment for the (ASSET-1) is as follows: $ 1853.3 per 


year 
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APPENDIX E 


FIGURES 


Knowledge 


Engineer domain expert 


Knowledge Base 
Construction Aids 


Domain 
Knowledge 
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Explanation Consultation 
System Driver i 


Consukor 





Figure 1 EMYCIN's Overall Organization 
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Electrical Fuel_system- | 
oystem- i 


Figure 2 A Context Tree 


PATIENT 
CURRENT PRIOR OPERATIONS THERAPY 
CULTURE CULTURE 
CURRENT PRIOR OPERATION 
ORGANISM ORGANISM DRUGS 
CURRENT PRIOR 
DRUGS DRUGS 





Figure 3 MYCIN's Static Tree Of Context Types 
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patient- | 


culture- | culture-2 culture-3 operation- 1 
(current culture current culture) prior culture) 
organism- 1 organism -2 organism - 3 organism - 4 
(current org.) (current org.) (prior org.) (prior org.) 
(current drug) 


drug- 3 
drug- | drug-2 current drug 
(current drug) 


Figure 4 A Context Instance Tree From MYCIN 
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REPAIR SUBSYSTEM 


Figure.> Statik Tree of Context Types of CAR Diagnose System 





REPAIR-1 SUBSYSTEM-1 SUBSYSTEM-2 


(Prior Repair) (Electrical System) (Fuel System) 


Figure 6 Dynamic Tree of CAR Diagnose System. 
(instance names are in parentheses.) 


172 


WELL 


ZONES 


Figure. 7a. Static Context Tree of LITHO. 


WELL-10 
ZONE-1 ZONE-2 ZONE-3 


Figure 7b. Dynamic Context Tree of LITHO. 
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starter works battery үпай battery att. of electrical 
motor - voltage ^ 


status status status status 


low 
resistance used_up bad bad 


Figure 9 Semantic Network Of Starter. motor/electrical 
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ammeter /electrical 
Electric current is produced by electrical зу вв 


and ammeter measures the electric current. 


dimming light/electrical 
Electric current is produced by the electrical 
system and dimming light-test measures the electric 


current. 


hydrometer/battery 


Hydrometer measures the specific gravity value of 
electrolyte. Electrolyte is part of the battery and if 
the specific gravity value is less than 1250 then 


battery will not function properly. 

battery voltage/batter 

Battery voltage is the measure of the battery 
performance and if its value is less than 12 V. then 


battery will not perform properly. 


Figure 140 Natural Explanations 
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starter motor(works with,battery voltage). 
battery voltage(quality of,battery). 
battery(part of,electrical). 
hydrometer(measures,specific gravity). 
specific gravity(quality of,electrolyte). 


electrolyte(part of,battery). 


ammeter(measures,electric current). 
dimming light(measure,electric current). 


electric current(produced by,electrical). 


Figure 11.a. Relationship Facts Of The Inference 
Network 


path(starter_motor,electrical, [battery voltage, 
battery] ). 
path(ammeter,electrical,[lelectric current] ). 
path(dimming light,electrical,[electric current]). 
path(hydrometer,battery,[specific gravity, 
electrolyte]). 


path(battery voltage,battery,[]). 


Figure 11.b. Path Facts Of The Inference Network 
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battery(status,bad) :- battery volt(value,« 12). 
battery(status,bad) :- hydrometer(value,« 1250). 
battery(status,bad) :- 

battery voltage(status,used up). 

battery voltage(status,used up) :- 

starter motor(status,low resistance). 


electrical(status,bad) :- battery(status,bad). 


Figure 11.c. Rules Of The Inference Network 


178 


ammeter electrical electric current ammeter measures 
is produced by electric current 
electrical system 


Figure 12.a. Explanation Tree Of "ammeter/electrical" 


ammeter measures electric produced b 
urre syster 


Figure 12.b. Semantic Network Of "ammeter/electrical" 


| 79 


| CLUE/STMT 


dimming. light electrical electric current dimming light 
is produced by measures the 

electrical system condition of the 

electric current 


Figure 135.a. Explanation Tree Of “dimming_light/electrical™ 


Gas measures > electric 2 roduced..b electrical 
light urre ste 


Figure 1 3.b. Semantic Network Of "dimming. light/electrical" 
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Hydrometer 


measures Electrolyte 
specific gravity is part of 
| B value of battery. 
Hydrometer Battery electrolyte. | 
Hydrometer Battery will not 


value < 1250 perform proper ly. 


Figure 14a. Explanation Tree Of "hydrometer/battery 


hydrometer electrolyte 





Figure 1 4b. Semantic Network Of "hydrometer/battery" 
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Hydrometer 


measures Electrolyte 
specific gravity is part of 
value of battery. 
battery Battery electrolyte. | 
voltage battery voltage Battery will not 
value is less Perform properly. 
than 12 v. 


Figure 15.a. Explanation Tree Of “battery_voltage/battery” 


battery quality_of battery 
voltage 


Figure 15.b. Semantic Network Of "battery voltage/battery 
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measures par t_of 
hydrometer electrolyte battery 


electrical 
system 





works with 


starter 
motor 


prod сео D 





measures 






electric 


ammeter current 


Bgsures 


dimming 
light 





Figure 16. Semantic Network 
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